# NOT RUN {
data(shoshveg)
# }
# NOT RUN {
dis.bc <- dsvdis(shoshveg,'bray')
# }
# NOT RUN {
opt.5 <- optpart(5,dis.bc)
# }
# NOT RUN {
nmds.bc <- nmds(dis.bc)
# }
# NOT RUN {
plot(nmds.bc)
# }
# NOT RUN {
res <- refine(nmds.bc,opt.5)
# }
Run the code above in your browser using DataLab