set.seed(123)
x <- 1:20 + rnorm(20, 0, 0.1)
masPred1(x, m = 3, s= 1)
masPred1(x, m = 3, s= 3)
data(DOW1941)
plot(DOW1941$Date, DOW1941$DOW1941,
type="l",
ylab="Dow Jones 1941", xlab="Date")
lines(DOW1941$Date, masPred1(DOW1941$DOW1941, m = 3, s= 1))
Run the code above in your browser using DataLab