library(soundgen) library(seewave) s1 = soundgen( repeatBout = 2, sylLen = 650, pauseLen = 300, pitch = data.frame(time = c(0, .3, 1), value = c(490, 525, 370)), vibratoDep = c(0, .5), vibratoFreq = 10, nonlinBalance = 45, subFreq = 130, subDep = 15, jitterDep = 1, shortestEpoch = 200, temperature = 0.2, tempEffects = list(formDrift = 2), rolloff = c(-12, -16), formants = c(850, 1700, 3200, 4300), noise = data.frame(time = c(0, 600, 750), value = c(-40, -10, -40)), mouth = seq(.5, .7, length.out = 16) * rep(c(.9, 1.1), 8), rolloffNoise = -4, dynamicRange = 120, samplingRate = 22050, play = T, plot = T, osc = T ) s2 = soundgen( pitch = NULL, noise = data.frame(time = c(0, 10, 130, 260, 270), value = c(-60, 0, 10, 0, -60)), formantsNoise = list(f1 = data.frame(freq = 480, width = 400, amp = 4), f2 = data.frame(freq = 8200, width = 8000, amp = 45)), rolloffNoise = -2, samplingRate = 22050, play = T, plot = T, osc = T ) s = addVectors(s1 * 5, s2, insertionPoint = 22050 * .75) playme(s, 22050) savewav(s, f = 22050, filename = 'moan_521_soundgen.wav')