# NOT RUN {
data(shoshveg) # returns a data frame of vegetation data
data(shoshsite) # returns a data frame of site data
dis.bc <- dsvdis(shoshveg,'bray')
opt.5 <- optpart(5,dis.bc)
library(tree)
mod <- tree(factor(opt.5$clustering)~ elevation+slope+av,
data=shoshsite)
confus(opt.5,mod)
confus(opt.5,mod,dis.bc)
# }
Run the code above in your browser using DataLab