R/runningmeans.R

###Running Means####
runningmeans <- function(x, start){
  n.iter=length(x)
  val=sapply(start:n.iter, function(ii)  mean(x[start:ii]))
  return(val)
}
SamAdhikari/HLSM_0.3 documentation built on May 31, 2019, 4:53 a.m.