if (FALSE) {
s = soundgen()
a = analyze(s, 16000, windowLength = 25, step = 25,
summary = 'extended', plot = FALSE)
spectrogram(s, 16000, windowLength = 25, step = 5)
addPitchCands(pitchCands = a$pitchCands,
pitchCert = a$pitchCert,
pitchSource = a$pitchSource,
pitch = a$result$pitch)
}
Run the code above in your browser using DataLab