change make_prediction() to model1() (#657)
This commit is contained in:
parent
37c9d02b29
commit
7bcbe88f5b
|
@ -214,7 +214,7 @@ These are exactly the same values we got with `optim()`! Behind the scenes `lm()
|
||||||
|
|
||||||
```{r}
|
```{r}
|
||||||
measure_distance <- function(mod, data) {
|
measure_distance <- function(mod, data) {
|
||||||
diff <- data$y - make_prediction(mod, data)
|
diff <- data$y - model1(mod, data)
|
||||||
mean(abs(diff))
|
mean(abs(diff))
|
||||||
}
|
}
|
||||||
```
|
```
|
||||||
|
|
Loading…
Reference in New Issue