The secuence was not complete in the other message, sorry!

 

sprot_matrix=read.csv("sprot_matrix.csv", row.names=1)

sprot_matrix

 

 

require(mvpart)

 

 

mrtsprot_matrix <-

mvpart(data.matrix(sprot_matrix [,1:47]) ~SECCHI+PH+TA+PTOT+NTOT+CHLA+AREA+ MEANDEP, sprot_matrix,xv="pick",xvmult=500,use.n=TRUE,all=TRUE,text.add=TRUE)

 

mrtsprot_matrix 

summary(mrtsprot_matrix)


	[[alternative HTML version deleted]]

