21.26 Decision Tree Performance

Here we plot the performance of the decision tree, showing a risk chart. The areas under the recall and risk curves are also reported.

predict_te <- predict(model, ds[te, vars], type="prob")[,2]
riskchart(predict_te, actual_te, risk_te)

An error matrix shows, clockwise from the top left, the percentages of true negatives, false positives, true positives, and false negatives.

predict_te <- predict(model, ds[te, vars], type="class")
sum(actual_te != predict_te)/length(predict_te) # Overall error rate
## [1] 0.1620337
actual_te %>%
  table(predict_te, dnn=c("Actual", "Predicted")) %>%
  '*'(100/(length(predict_te))) %>%
  round()
##       Predicted
## Actual No Yes
##    No  77   3
##    Yes 13   7


Your donation will support ongoing development and give you access to the PDF version of this book. Desktop Survival Guides include Data Science, GNU/Linux, and MLHub. Books available on Amazon include Data Mining with Rattle and Essentials of Data Science. Popular open source software includes rattle, wajig, and mlhub. Hosted by Togaware, a pioneer of free and open source software since 1984.
Copyright © 1995-2021 Graham.Williams@togaware.com Creative Commons Attribution-ShareAlike 4.0.