# 3 MODEL
load(file = "data/2-join.RData")
mod = lm(mpg ~ am, wt, data = cyl.tidy)
mod.tidy = as.data.frame(mod[c("residuals", "effects", "fitted.values")])
save(mod, mod.tidy, file = "data/3-model.RData")
rm(list=ls())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.