if (exists("testing")) { data("ChickWeight") regression <- lm(weight ~ Time, data = ChickWeight) }
knitr::kable(coef(regression))
Values vs. fitted values.
pars <- par(ask = FALSE) plot(regression$model[,1], fitted(regression))
plot(regression, ask = FALSE) par(pars)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.