Dodgers

library(rpart) library(visNetwork) library(sparkline)

file.exists(“DodgersData.csv”)

[1] TRUE

Basic classification tree

res <- rpart(attend~., data=read.csv(“DodgersData.csv”)) visTree(res, main = “Dodgers Attendance Tree”, width = “100%”)