From 7bcbe88f5b58775c2e0a1438e5d68c985051d8bd Mon Sep 17 00:00:00 2001
From: AlanFeder <AlanFeder@users.noreply.github.com>
Date: Wed, 20 Jun 2018 05:09:21 -0400
Subject: [PATCH] change make_prediction() to model1() (#657)

---
 model-basics.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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