source
## From: Forensic glass example Venables and Ripley (2002) pp. 261--265
library(MASS);library(rpart);data(fgl);set.seed(123)
fgl.rp4 <- rpart(type ~ ., data = fgl, cp = 0.03
, parms = list(split = "information"))
ht01.multipleclass <- data.frame(observed = fgl$type, predict(fgl.rp4))
write.table(ht01.multipleclass, file = "ht01.multipleclass.txt")