Adds circle of significant contribution onto ordination diagram
1 2 | add.csc.metaMDS(ord, x, arrow.mul, at = c(0, 0), add = T, choices = c(1,
2), ci = 0.95, ...)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 | library (weimea)
library (vegan)
data (vltava)
env <- vltava$env$pH
#add randomly generated variables
set.seed (1234)
nmds <- metaMDS (vltava$spe)
env <- matrix (rnorm (8*97), ncol = 8, dimnames = list (NULL, names (vltava$env)[c(1:6, 11:12)]))
ordiplot (nmds, display = 'si')
for (gr in 1:4) ordiellipse (nmds, groups = vltava$group$GROUP, show.groups = gr, col = gr)
ef <- envfit (nmds, env)
add.csc.metaMDS (ord = nmds, x = ef, fg = 'grey', lwd = 2, ci = 0.95)
plot (ef)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.