Commit 9e42c7c0 authored by Sven Warris's avatar Sven Warris
Browse files

Small fixes

parent d952285f
......@@ -262,7 +262,12 @@ model
```{r echo=TRUE}
pred <- predict(model, newdata = test)
table(pred, test$taste)
(482 + 252 + 667) / nrow(test)
```
Accuracy:
```{r echo=FALSE}
a = as.data.frame(table(pred, test$taste))
(a$Freq[1] + a$Freq[5] + a$Freq[9]) / sum(a$Freq)
```
## Excercise
......@@ -289,7 +294,7 @@ Create a machine learning report in R markdown:
- Create decision tree
- Create random forest models
- Report on the most accurate model
- Send me you report (sven.warris@wur.nl)
- Send me your report (sven.warris@wur.nl)
## Round up
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment