# 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