if (FALSE) {
s = soundgen(sylLen = 1000, pitch = 500,
vibratoFreq = c(6, 12), vibratoDep = 2,
temperature = .001, addSilence = 5)
an = analyze(s, 16000, step = 5, windowLength = 25,
plot = TRUE, yScale = 'bark')
plot(an$detailed$fmFreq, type = 'l')
}
Run the code above in your browser using DataLab