library(soundgen) library(seewave) s1 = soundgen( sylLen = 670, attackLen = c(50, 100), pitch = list(time = c(0, 150, 350, 600, 670), value = c(320, 380, 360, 380, 290)), rolloff = -7, subFreq = 80, subDep = 100, subWidth = c(35, 45), jitterDep = .5, shimmerDep = 15, formants = c(750, 1150, 2850, 3700, 4700, 5600) * 1.14, vocalTract = c(15, seq(16.8, 17.1, length.out = 4)), noise = -40, rolloffNoise = -4, temperature = 0.001, dynamicRange = 120, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) s2 = soundgen( nSyl = 2, sylLen = c(340, 410) * 1.1, pauseLen = 0, amplGlobal = c(0, -3), pitch = list(time = c(0, .15, .25, .5, .75, 1), value = c(290, 370, 375, 380, 360, 270)), pitchGlobal = c(0, -1), rolloff = c(-12, -7, -6, -7, -12), subFreq = 80, subDep = 100, subWidth = c(30, 50, 30), shortestEpoch = 100, jitterDep = .3, shimmerDep = 15, formants = c(800, 1200, 3000, 3300, 4800), mouth = c(.5, .55, .5, .3), noise = list(time = c(-150, 340), value = -40), rolloffNoise = -4, temperature = 0.001, dynamicRange = 120, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) s = addVectors(s1, s2, insertionPoint = length(s1) - 22050 * .1) playme(s, 22050) spectrogram(s, 22050, osc = T, ylim = c(0, 4)) savewav(s, f = 22050, filename = 'roar_362_soundgen.wav')