# 金明哲「Rによるデータサイエンス」

# p233, 表13.1, 海水浴データ(架空)

wind <- factor(c(0,0,0,0,0,0,1,1,1,1),labels=c("弱","強"))

temp <- factor(c(2,0,2,1,0,2,2,0,1,2),labels=c("低","中","高"))

resp <- factor(c(1,0,1,1,0,0,0,0,0,1),labels=c("行かない","行く"))

# 分類木

library(mvpart)

res <- rpart(resp~wind+temp)

plot(res,uniform=T,branch=0.6)

text(res,use.n=T,all=T)