library(soundgen) library(seewave) s = soundgen( sylLen = 360, pitch = c(335, 330, 305, 300), rolloff = c(-18, -16, -30), ampl = c(0, 0, -10, -20), temperature = 0.001, formants = c(950, 1700, 3700), noise = data.frame(time = c(0, 300, 440), value = c(-20, -10, -50)), mouth = c(.4, .5), rolloffNoise = -5, attackLen = 30, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) playme(s, 22050) savewav(s, f = 22050, filename = 'moan_515a_soundgen.wav')