if (FALSE) {
# Use the example data
data(beesCountrySubset)
# First,
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()
)
exampleEstimate <- richnessEstimateR(
data = estimateDataExample,
sampleSize = 10000,
countrySamples = 1,
continentSamples = 1,
globalSamples = 1,
filterToRecordedCountries = TRUE,
mc.cores = 1,
# Directory where to save files
outPath = tempdir(),
fileName = "Sampled.pdf"
)
} # END dontrun
Run the code above in your browser using DataLab