library(soundgen) library(seewave) s = soundgen( sylLen = 2070, pitch = c(510, 470), ampl = c(0, -10), rolloff = -9, rolloffOct = -2, formants = c(400, 1700, 2400, 5000), jitterDep = .1, jitterLen = 50, shimmerDep = 20, shimmerLen = 100, noise = -40, mouth = c(.5, .2), addSilence = 0, attackLen = c(20, 50), samplingRate = 22050, play = T, plot = T, osc = T ) playme(s, 22050) savewav(s, f = 22050, filename = 'cry_504_soundgen.wav')