str(headneck)
summary(headneck)
with(headneck, {plot(month, atrisk, type="s");
lines(month, deaths, type="s", col="red");
lines(month, withdrawals, type="S", col="green")})
Run the code above in your browser using DataLab