R/bioacoustica.demo.windowFunction.R

In BioAcoustica/BioAcousticaR-tools: What the package does (short line)

bioacoustica.demo.windowFunction <-
function (number, start, end, wave, f, headers=FALSE) {
  if (isTRUE(headers)) {
    return (c("win_num", "start_t", "end_t", "duration", "ACI"));
  }
  row <- c(number = number, start = start, end = end, duration = duration(wave, f), ACI = ACI(wave, f));
  return(row);
}