
betadisper
.
"permutest"(x, pairwise = FALSE, permutations = 999, parallel = getOption("mc.cores"), ...)
"betadisper"
, the result of a
call to betadisper
.how
, or the
number of permutations required, or a permutation matrix where each
row gives the permuted indices.parallel = 1
uses ordinary, non-parallel
processing.permutest.betadisper
returns a list of class
"permutest.betadisper"
with the following components:"data.frame"
.observed
and
permuted
containing the observed and permuted p-values for
pairwise comparisons of group mean distances (dispersions or variances).how
.permutest.betadisper
permutes model
residuals to generate a permutation distribution of F under the Null
hypothesis of no difference in dispersion between groups. Pairwise comparisons of group mean dispersions can be performed by
setting argument pairwise
to TRUE
. A classical t test
is performed on the pairwise group dispersions. This is combined with a
permutation test based on the t statistic calculated on pairwise group
dispersions. An alternative to the classical comparison of group
dispersions, is to calculate Tukey's Honest Significant Differences
between groups, via TukeyHSD.betadisper
.
Anderson, M.J., Ellingsen, K.E. & McArdle, B.H. (2006) Multivariate dispersion as a measure of beta diversity. Ecology Letters 9(6), 683--693.
betadisper
. For
an alternative approach to determining which groups are more variable,
see TukeyHSD.betadisper
.data(varespec)
## Bray-Curtis distances between samples
dis <- vegdist(varespec)
## First 16 sites grazed, remaining 8 sites ungrazed
groups <- factor(c(rep(1,16), rep(2,8)), labels = c("grazed","ungrazed"))
## Calculate multivariate dispersions
mod <- betadisper(dis, groups)
mod
## Perform test
anova(mod)
## Permutation test for F
pmod <- permutest(mod, permutations = 99, pairwise = TRUE)
## Tukey's Honest Significant Differences
(mod.HSD <- TukeyHSD(mod))
plot(mod.HSD)
## Has permustats() method
pstat <- permustats(pmod)
densityplot(pstat, scales = list(x = list(relation = "free")))
qqmath(pstat, scales = list(relation = "free"))
Run the code above in your browser using DataLab