# NOT RUN {
data(shoshveg) # returns a vegetation data.frame
dis.bc <- dsvdis(shoshveg,'bray/curtis') # returns a Bray/Curtis
# dissimilarity matrix
opt.5 <- optpart(5,dis.bc) # five cluster partition
opt.5a <- mergeclust(opt.5,5,4) # reassigns member from cluster
# 5 to 4
# }
Run the code above in your browser using DataLab