決定木分析を行うサンプルプログラムを書いたので投稿します。
03_Decision_tree.R
library(rpart)
library(partykit)
library(epitools)
#Read data
data_titanic<-expand.table(Titanic)
#Making decision tree
result<-rpart(Survived~., data = data_titanic)
#Plot result
plot(as.party(result)
結果
