hspider | R Documentation |
Abundance of hunting spiders in a Dutch dune area.
data(hspider)
A data frame with 28 observations (sites) on the following 18 variables.
Log percentage of soil dry mass.
Log percentage cover of bare sand.
Log percentage cover of fallen leaves and twigs.
Log percentage cover of the moss layer.
Log percentage cover of the herb layer.
Reflection of the soil surface with cloudless sky.
Abundance of Alopecosa accentuata.
Abundance of Alopecosa cuneata.
Abundance of Alopecosa fabrilis.
Abundance of Arctosa lutetiana.
Abundance of Arctosa perita.
Abundance of Aulonia albimana.
Abundance of Pardosa lugubris.
Abundance of Pardosa monticola.
Abundance of Pardosa nigriceps.
Abundance of Pardosa pullata.
Abundance of Trochosa terricola.
Abundance of Zora spinimana.
The data, which originally came from Van der Aart and Smeek-Enserink (1975) consists of abundances (numbers trapped over a 60 week period) and 6 environmental variables. There were 28 sites.
This data set has been often used to illustrate
ordination, e.g., using
canonical correspondence analysis (CCA).
In the example below, the
data is used for constrained quadratic ordination
(CQO; formerly called
canonical Gaussian ordination or CGO),
a numerically intensive method
that has many superior qualities.
See cqo
for details.
Van der Aart, P. J. M. and Smeek-Enserink, N. (1975). Correlations between distributions of hunting spiders (Lycosidae, Ctenidae) and environmental characteristics in a dune area. Netherlands Journal of Zoology, 25, 1–45.
summary(hspider)
## Not run:
# Standardize the environmental variables:
hspider[, 1:6] <- scale(subset(hspider, select = WaterCon:ReflLux))
# Fit a rank-1 binomial CAO
hsbin <- hspider # Binary species data
hsbin[, -(1:6)] <- as.numeric(hsbin[, -(1:6)] > 0)
set.seed(123)
ahsb1 <- cao(cbind(Alopcune, Arctlute, Auloalbi, Zoraspin) ~
WaterCon + ReflLux,
family = binomialff(multiple.responses = TRUE),
df1.nl = 2.2, Bestof = 3, data = hsbin)
par(mfrow = 2:1, las = 1)
lvplot(ahsb1, type = "predictors", llwd = 2,
ylab = "logitlink(p)", lcol = 1:9)
persp(ahsb1, rug = TRUE, col = 1:10, lwd = 2)
coef(ahsb1)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.