# NOT RUN {
data(mapTest)
qProb=c(0.4,0.7)
criti=correctionTree(qProb,mapTest)
# displays best criterion, corresponding costs and number of zones
geozoning:::sortCrit(qProb,criti$criterion,criti$cost,criti$costL,
criti$nz,criti$mdist,criti$zk,mapTest)
# }
Run the code above in your browser using DataLab