if (FALSE) {
# Read in some example data and use [BeeBDC::richnessPrepR()] to create the example input data
#' data(beesCountrySubset)
estimateDataExample <- BeeBDC::richnessPrepR(
data = beesCountrySubset,
# Download the taxonomy
taxonomyFile = BeeBDC::beesTaxonomy(),
# Download the checklist
checklistFile = BeeBDC::beesChecklist(),
curveFunction = function(x) (228.7531 * x * x^-log(12.1593)),
sampleSize = 10000,
countryColumn = "country_suggested",
limitGlobal = NULL,
outPath = tempdir()
)
# In this function we can directly feed in estimateDataExample$site_speciesCounts
iNextOut <- iNEXTwrapper(data = estimateDataExample$site_speciesCounts,
variableColumn = "country_suggested",
valueColumn = "n",
q = 0,
datatype = "abundance",
conf = 0.95,
se = TRUE,
nboot = 50,
size = NULL,
endpoint = NULL,
knots = 40,
mc.cores = 1)
}
Run the code above in your browser using DataLab