library(soundgen) library(seewave) s = soundgen( sylLen = 250, pitch = c(220, 160), ampl = data.frame(time = c(0, 100, 160, 250), value = c(-10, -10, 0, -30)), nonlinBalance = 70, subFreq = 75, subDep = 100, subWidth = 50, jitterDep = 1, shortestEpoch = 50, rolloff = -12, temperature = 0.05, formants = c(500, 1500, 2500, 3400), noise = data.frame(time = c(0, 400, 550), value = c(-25, -20, -40)), formantsNoise = c(600, 1300, 1600, 2400, 3500, 4500, 5500, 6800), rolloffNoise = c(0, 5, 7), attackLen = 20, dynamicRange = 120, samplingRate = 22050, play = T, plot = T, osc = T ) playme(s, 22050) savewav(s, f = 22050, filename = 'grunt_540_soundgen.wav')