library(soundgen) library(seewave) t = c(0, 180, 270) s = soundgen( sylLen = 180, pitch = c(160, 160, 120), rolloff = -12, rolloffOct = 1, temperature = 0.05, subFreq = 75, subDep = 5, subWidth = 35, jitterDep = 2, shortestEpoch = 50, formants = list(f1 = data.frame(time = t, freq = c(550, 530, 450)), f2 = data.frame(time = t, freq = c(1200, 1250, 800)), f3 = data.frame(time = t, freq = c(2100, 2200, 2600)), f4 = 4300, f5 = 4700, f6 = 6500, f7 = 7300), noise = data.frame(time = t, value = c(-25, -25, -40)), rolloffNoise = 0, attackLen = 50, samplingRate = 22050, play = T, plot = T, osc = T ) playme(s, 22050) savewav(s, f = 22050, filename = 'grunt_079_soundgen.wav')