Diversity(Ps, q, CheckArguments = TRUE)
bcDiversity(Ns, q, Correction = "Best", CheckArguments = TRUE)
"None"
(no correction), "ChaoShen"
, "Grassberger"
, "Holste"
, "Bonachela"
or "Best"
, the default value.TRUE
, the function arguments are verified. Should be set to FALSE
to save time when the arguments have been checked elsewhere.Diversity
calls Tsallis
to calculate entropy and transforms it into diversity by calculating its deformed exponential.
Bias correction requires the number of individuals to estimate sample Coverage
. Use bcDiversity
and choose the Correction
.Tsallis
, expq
# Load Paracou data (number of trees per species in two 1-ha plot of a tropical forest)
data(Paracou618)
# Ns is the total number of trees per species
Ns <- Paracou618.MC$Ns
# Whittaker plot
plot(sort(Ns[Ns != 0], decr = TRUE), log = "y", type = "b",
main = "Whittaker plot", xlab = "Rank", ylab = "Ns")
# Calculate diversity of order 1, i.e. Shannon's diversity
Diversity(Paracou618.MC$Ps, 1)
# Calculate it with estimation bias correction
bcDiversity(Paracou618.MC$Ns, 1)
Run the code above in your browser using DataLab