Content - 9b5be39c5b669f0dd098a7cde9dfb9ee05446783 - 300fd01/R/runningmeans.R

swh:1:snp:e94096527620720ab530102fd039e636a91a990c

Tip revision: e59f1fc3b0389804e671d681b7fc639e687d4154 authored by Tracy Sweet on 01 March 2020, 06:00:06 UTC
version 0.8.2

Tip revision: e59f1fc

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)
}