library(soundgen) library(seewave) tn = c(0, 950, 1200, 1450, 1800) s = soundgen( sylLen = 1800, ampl = c(-5, 0, -4, -3, -8), pitch = c(240, 200), rolloff = -24, rolloffOct = 1, vibratoDep = .5, vibratoFreq = 1.5, jitterDep = list(time = tn, value = c(.2, .2, 4, .2, .2)), shimmerDep = list(time = tn, value = c(20, 20, 50, 20, 20)), shimmerLen = list(time = tn, value = c(10, 10, 1, 10, 10)), formants = list( f1 = list(freq = 880, width = 120, amp = 20), f2 = list(freq = 1400, width = 120, amp = 25), f3 = list(freq = 2500, width = 150, amp = 20), f4 = list(freq = 3700, width = 150, amp = 30), f4.5 = list(freq = 4500, width = 50, amp = -10), f5 = list(freq = 5500, amp = 20), f6 = list(freq = 6800, amp = 35), f6.5 = list(freq = 8000, width = 50, amp = -10), f7 = 9000, f8 = 10500 ), formantCeiling = 5, formantWidth = 1.2, noise = data.frame(time = c(0, 450, 900, 1350, 1800, 2000), value = c(-40, -25, -25, -35, -28, -60)+10), rolloffNoise = 6, rolloffNoiseExp = -10, # c(-4, -4, -6), mouth = c(.55, .5, .6, .5, .55, .5), temperature = 0.05, dynamicRange = 120, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 5) ) playme(s, 22050) savewav(s, f = 22050, filename = 'moan_551_soundgen.wav')