## Not run:
# data(nancycats)
# obs.D <- D_Jost(nancycats)
# bs <- chao_bootstrap(nancycats)
# bs_D <- summarise_bootstrap(bs, D_Jost)
# bias <- bs.D$summary.global.het[1] - obs.D$global.het
# bs.D$summary.global.het - bias
# ## End(Not run)
Run the code above in your browser using DataLab