library(soundgen) library(seewave) s = soundgen( sylLen = 770, pitch = list( time = c(0, 160, 161, 450, 451, 644, 645, 750, 770), value = c(1400, 1450, 2000, 1890, 1150, 1100, 1270, 700, 650)), rolloff = c(rep(-4, 5), -20), rolloffOct = -1, temperature = 0.05, tempEffects = list(pitchDep = 0), subFreq = 300, shimmerDep = 20, subDep = list(time = c(0, 450, 451, 644, 645, 770), value = c(0, 0, 12, 8, 0, 0)), jitterDep = c(1.5, .5, .5, .2), formants = c(1300, 2100, 3500), formantWidth = 1.2, mouth = c(0, .6, .5, .4, 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 = 'scream_332_soundgen.wav')