# NOT RUN {
data(EVS)
EVS$rankings[is.na(EVS$rankings)] <- 3
set.seed(654)
training=sample(1911,1434)
tree <- ranktree(EVS$rankings[training,],EVS$predictors[training,],decrmin=0.001,num=50)
#test set validation
vtreetest <- validatetree(tree,testX=EVS$predictors[-training,],EVS$rankings[-training,])
#cross-validation
vtreecv <- validatetree(tree,method="cv",V=10)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab