###################################################
### code chunk number 21: Cs501_fitted
###################################################
fitted1 <- fitted(fit1)
plot(fitted1)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.