data(exStudy)
annotation <- data.frame(start = min(getWhistleData(exStudy)$UTC),
fmin = c(16000, 17000),
fmax = c(17000, 18000))
annotation$end <- annotation$star + 1
exStudy <- markAnnotated(exStudy, annotation)
getWhistleData(exStudy)[c('UTC', 'duration', 'freqMin', 'freqMax', 'inAnno', 'annoId')]
Run the code above in your browser using DataLab