R/blockMeans.single.R

blockMeans.single <- function(x, n = 600) {
  means <- colMeans(stats::na.omit(matrix(x, nrow = n)))
  if (length(x) %% n != 0) {
    means <- means[-length(means)]
  }
  return(means)
}
alphonse/aeRo documentation built on May 11, 2019, 11:21 p.m.