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()
)
# Transform the data for input
inputTestData <- estimateDataExample$site_speciesCounts %>%
dplyr::select(scientificName, country_suggested, n) %>%
tidyr::pivot_wider(names_from = country_suggested,
values_from = n,
values_fill = 0) %>%
# Create the rownames
tibble::column_to_rownames("scientificName") %>%
dplyr::tibble()
iChaoOut <- ChaoWrapper(
data = inputTestData,
datatype = "abundance",
k = 10,
conf = 0.95,
mc.cores = 1)
}
Run the code above in your browser using DataLab