# NOT RUN {
data(shoshveg) # returns a data.frame of vegetation data called shoshveg
dis.bc <- dsvdis(shoshveg,'bray') # generate Bray/Curtis dissimilarity
# matrix
opt.5 <- optpart(5,dis.bc) # generate 5-cluster optpart
# }
# NOT RUN {
res <- optindval(shoshveg,opt.5)
# }
# NOT RUN {
# polish the optpart result
# }
# NOT RUN {
classmatch(opt.5,res)
# }
# NOT RUN {
# see the plot re-assignments
# }
Run the code above in your browser using DataLab