# NOT RUN {
data(DOW1941)
plot(DOW1941$Date, DOW1941$DOW1941,
type="l",
ylab="Dow Jones 1941", xlab="Date")
lines(DOW1941$Date, predPoly(DOW1941$DOW1941, n = 20, s= 1))
# }
Run the code above in your browser using DataLab