library(soundgen) library(seewave) s = soundgen( sylLen = 490, pitch = list(time = c(0, 80, 250, 370, 420, 421, 490), value = c(1000, 2900, 3200, 2900, 2170, 1170, 1000)), smoothing = list(loessSpan = .5), rolloff = c(-5, 0, -25), rolloffKHz = 0, temperature = 0.05, jitterDep = c(.5, 1, 0), shimmerDep = c(5, 15, 0), formants = c(1100, 2300, 3100, 4000, 5300, 6200), mouth = c(.3, .5, .6, .5, .3), addSilence = 0, samplingRate = 44100, pitchSamplingRate = 44100, play = T, plot = T, osc = T, ylim = c(0, 8) ) playme(s, 44100) savewav(s, f = 44100, filename = 'scream_010_soundgen.wav')