library(party) # CLASSIFICATION # fitting library(ipred) data("GlaucomaM", package = "TH.data") glau <- GlaucomaM levels(glau$Class) <- c("glau", "norm") fm.class <- party::ctree(Class ~ ., data = glau) # visualization pushViewport(viewport(gp=gpar(cex=0.6))) plot(fm.class, new=FALSE, terminal.panel=myNode) popViewport()