Bin signal in a given matrix

binsignal.R

bin.signal <- function(data, bin.width) {
  if (is.matrix(data)) data <- list(data)

  lapply(data, function(d) {
    window.size <- ncol(d)
    res <- t(apply(d, 1, function(row) {
      sapply(seq(1, window.size, bin.width), function(s) sum(row[s:(s+bin.width-1)]))
    }))
    colnames(res) <- paste0('bin', seq_len(ncol(res)))
    res
  })
}