# 検定で枝を止めるのを決めるので、剪定しなくてよい。

# 例えば、生存木ならログランク検定を用いる

library(party)

# 回帰木

data(cars)

res <- ctree(dist~speed,cars)

plot(res)

# 分類木

data(iris)

res <- ctree(Species~.,iris)

plot(res)

# 生存木

data(GBSG2,package="ipred")

res <- ctree(Surv(time,cens)~.,data=GBSG2)

plot(res)