# NOT RUN {
# Starts with classifying releves by cluster analysis
dd<- vegdist(nveg^0.5,method="euclid") # dd is distance matrix
o.clust<- hclust(dd,method="ward") # clustering
groups<- as.factor(cutree(o.clust,k=3)) # forming 3 groups
# Applies ranking and prints ordered table of species (the columns)
o.srank<- srank(nveg,groups,method="jancey",y=0.5)
o.srank
# }
Run the code above in your browser using DataLab