library(soundgen) library(seewave) s1 = soundgen( nSyl = 5, sylLen = c(125, 120, 160, 160, 140), pauseLen = c(100, 90, 75, 85), pitch = data.frame(time = c(0, .4, 1), value = c(380, 480, 430)), pitchGlobal = c(0, -.5), vibratoDep = .5, vibratoFreq = 7, rolloff = c(-8, -12), amplGlobal = c(0, -5), subFreq = 150, subDep = 100, subWidth = c(0, 90), jitterDep = c(0, .3, 1), shimmerDep = 5, formants = list(f1 = data.frame(time = c(0, 100, 1000), freq = c(600, 900, 1000)), f2 = data.frame(time = c(0, 100, 1000), freq = c(1250, 1550, 1600)), f3 = 2400, f4 = 4000, f5 = 4700, f6 = 5600, f7 = 7300, f8 = 7800), mouth = c(.5, .4), noise = data.frame(time = c(-50, 125), value = c(-20, -10) + 0), rolloffNoise = -6, attackLen = 20, temperature = 0.05, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 8) ) s2 = soundgen( sylLen = 1200, pitch = data.frame(time = c(0, 70, 150, 1200), value = c(600, 800, 1600, 1400)), ampl = data.frame(time = c(0, 70, 150, 1200), value = c(0, -25, -40, -44)), vibratoDep = 1, vibratoFreq = 3, rolloff = c(-15, rep(-30, 20)), jitterDep = 1, shimmerDep = 10, formants = c(1000, 1600, 2400, 4000, 4700, 5600, 7300, 7800), noise = data.frame(time = c(0, 50, 150, 500, 1200), value = c(-30, -10, -25, -20, -40)), attackLen = 20, temperature = 0.05, addSilence = 0, samplingRate = 22050, pitchSamplingRate = 22050, play = T, plot = T, osc = T, ylim = c(0, 8) ) s = addVectors(s2, s1 * 3, insertionPoint = 22050 * 0.05) playme(s, 22050) savewav(s, f = 22050, filename = 'laugh_302b_soundgen.wav')