今回の分析は103 行のデータに対して行われました。
library(rpart) library(rpart.plot) binary.model <- rpart(subscribed~., data=banking, cp=.01) rpart.plot(binary.model, extra=104, box.palette="GnBu", branch.lty=3, shadow.col="gray", nn=TRUE)