an = analyze(soundgen(), 16000)
fl = soundgen:::getFeatureFlux(an$detailed, plot = TRUE)
if (FALSE) {
# or simply:
an = analyze(soundgen(sylLen = 500), 16000, plot = TRUE, ylim = c(0, 8),
extraContour = 'flux', flux = list(smoothWin = 100, thres = .15))
}
Run the code above in your browser using DataLab