library(rpart)#決定木のライブラリー
library(partykit)#結果をプロットするためのライブラリー
tmp <- data.frame(Titanic)#集計表
df <- data.frame(Class = rep(tmp$Class, tmp$Freq),
                 Sex = rep(tmp$Sex, tmp$Freq),
                 Age = rep(tmp$Age, tmp$Freq),
                 Survived = rep(tmp$Survived, tmp$Freq)
)#集計表を個票にする
ct <- rpart(Survived ~ Class + Sex + Age, data = df, method ="class")#決定木分析
plot(as.party(ct))#分析結果をグラフにする
help(rpart)