powered by
Calculates moving average smoother
slidSmooth(x,k)
length(y)
y
#generate piecewise vector with gaussian noise y <- 1:450 y[1:150] <- 2 y[151:300] <- 3 y[301:450] <- 1 y <- y + rnorm(450) #calculate smoother y_smooth <- slidSmooth(y,20)
Run the code above in your browser using DataLab