Slide 20
Slide 20 text
plot(X, Y, col=grey(.5), type="l", axes=F, xlab="Time
of Day", ylab=ylab, main=title, ylim=c(0,1))
axis(1, labels=seq(from=0,to=24,by=1), at=seq(from=0,to=24,by=1))
axis(2)
box()
grid()
f <- rep(1/4, 4)
y_lag <- filter(Y, f, sides=2)
lines(X, y_lag, col="red", lwd=2)