diff --git a/model-basics.Rmd b/model-basics.Rmd index 2f27798..862b6f0 100644 --- a/model-basics.Rmd +++ b/model-basics.Rmd @@ -214,7 +214,7 @@ These are exactly the same values we got with `optim()`! Behind the scenes `lm() ```{r} measure_distance <- function(mod, data) { - diff <- data$y - make_prediction(mod, data) + diff <- data$y - model1(mod, data) mean(abs(diff)) } ```