# NOT RUN {
model <- lnre("fzm", spc=BrownAdj.spc, bootstrap=20)
confint(model, "alpha") # Zipf slope
confint(model, "S") # population diversity
confint(model, "S", method="normal") # Gaussian approx works well in this case
confint(model) # overview
confint(model, "alpha", plot=TRUE) # visualize bootstrap distribution
# }
Run the code above in your browser using DataLab