library(soundgen) library(seewave) s = soundgen( sylLen = 650, pitch = list(time = c(0, 150, 350, 472, 650), value = c(260, 700, 750, 700, 260)), temperature = 0.05, rolloff = -6, rolloffOct = -1, subFreq = 80, subDep = 10, subWidth = c(40, 50, 30), jitterDep = 1.2, formants = c(1200, 1900, 3300, 5000, 6900), formantWidth = 1.25, formantCeiling = 5, mouth = c(.25, .5, .25), noise = -15, attack = 70, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) playme(s, 22050) savewav(s, f = 22050, filename = 'roar_007_soundgen.wav')