Merge branch 'master' of git.wageningenur.nl:warri004/r-big-data

slides/Sven/machineLearning.Rmd

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