# Load Paracou data (number of trees per species in two 1-ha plot of a tropical forest)
data(Paracou618)
# Estimate diversity.
Profile <- CommunityProfile(bcDiversity, Paracou618.MC$Ns, seq(0, 2, 0.1))
plot(Profile, type="l", main="Paracou Plots Diversity", xlab="q", ylab="Diversity")
# Compare to non bias-corrected diversity
lines(CommunityProfile(Diversity, Paracou618.MC$Ps, seq(0, 2, 0.1)), lty=3)
legend("topright", c("Bias Corrected", "Biased"), lty=c(1,3), inset=0.01)
Run the code above in your browser using DataLab