powered by
movAvLines(x = 1:length(y), y, widths = c(3, 5, 7, 9, 11, 13), weights, col = "blue", alpha = 0.3, add = TRUE, las = 1, ...)
movAv
addAlpha
lines
set.seed(42) movAvLines(y=cumsum(rnorm(50)), add=FALSE, lwd=3)
Run the code above in your browser using DataLab