data(spider)
out1 <- estimateD(spider, q = c(0,1,2), datatype = "abundance", base="size")
out1
if (FALSE) {
out2 <- estimateD(spider, q = c(0,1,2), datatype = "abundance", base="coverage")
out2
data(ant)
out <- estimateD(ant, q = c(0,1,2), datatype = "incidence_freq", base="coverage",
level=0.985, conf=0.95)
out
}
Run the code above in your browser using DataLab