library(soundgen) library(seewave) s = soundgen( sylLen = 450, pitch = data.frame(time = c(0, 120, 230, 450), value = c(185, 400, 420, 280)), ampl = data.frame(time = c(0, 60, 230, 420), value = c(-25, -20, 0, -10)), rolloff = c(-17, -8, -10), rolloffOct = -1, amFreq = rnorm(20, 60, 20), amDep = 30, invalidArgAction = 'ignore', jitterDep = c(.4, 1, .2), shimmerDep = 20, formants = c(500, 1200, 1700, 3500, 4200, 5100, 5500), mouth = c(.5, .5, .4), noise = list(time = c(0, 350, 450, 550), value = c(-40, -40, -30, -50)), attackLen = 50, temperature = 0.001, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) playme(s, 22050) savewav(s, f = 22050, filename = 'grunt_135_soundgen.wav')