fake_project/3-model.R

# 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())
jchrom/dataglue documentation built on May 18, 2019, 10:22 p.m.