4

library(rpart)
library(visNetwork) 
library(sparkline)
# Basic classification tree
Dodgers <- read.csv("DodgersData.csv")  
res <- rpart(attend ~ ., data = Dodgers)
visTree(res, edgesFontSize = 14, nodesFontSize = 16, width = "100%")