data(bryceveg)
bryceveg <- dropspc(bryceveg,4)
bryce.bc <- dsvdis(bryceveg,'bray')
bryce.nmds <- nmds(bryce.bc)
if (FALSE) bryce.preds <- predict(bryce.nmds,bryceveg)
if (FALSE) bryce.ccm <- ccm(bryceveg,bryce.preds$fitted)
if (FALSE) summary(bryce.ccm$sim)
if (FALSE) boxplot(bryce.ccm$diverse)
Run the code above in your browser using DataLab