# NOT RUN {
data("carEvaluation")
## create a tree with IDM (s=1) to full size
## carEvaluation, leaving the first 10 observations out
ip <- imptree(acceptance~., data = carEvaluation[-(1:10),],
method="IDM", method.param = list(splitmetric = "globalmax", s = 1),
control = list(depth = NULL, minbucket = 1))
ip ## standard printing; same as 'print(ip)'
print(ip, sep = ";") ## probability intervals are separated by ';'
# }
Run the code above in your browser using DataLab