# En utilisant le critère CVRE
doubs.mrt.cvre<-mvpart(data.matrix(spe.hel)~.,env,
legend=FALSE,margin=0.01,cp=0,xv="pick",xval=nrow(spe.hel),xvmult=100,which=4)

# En choisissant un arbre avec 4 feuilles
doubs.mrt.4<-mvpart(data.matrix(spe.hel)~.,env,
legend=FALSE,margin=0.01,cp=0,xv="pick",xval=nrow(spe.hel),xvmult=100,which=4)