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))

Diagnostics (click to show)

plot(regression, ask = FALSE)
par(pars)



rubenarslan/rmdpartials documentation built on June 7, 2020, 6:05 p.m.