library(soundgen) library(seewave) s = soundgen( sylLen = 230, pitch = c(305, 280), ampl = c(0, -20), rolloff = -30, temperature = 0.05, formants = c(260, 960, 1500, 2200, 2600, 3600, 4200, 4500), noise = data.frame( time = c(-50, 120, 700), value = c(-15, -5, -50) ), rolloffNoise = 0, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 8) ) playme(s, 22050) savewav(s, f = 22050, filename = 'sigh_160_soundgen.wav')