if (FALSE) {
data(crest_ex)
data(crest_ex_pse)
data(crest_ex_selection)
reconstr <- crest(
df = crest_ex, pse = crest_ex_pse, taxaType = 0,
site_info = c(7.5, 7.5),
climate = c("bio1", "bio12"), bin_width = c(2, 20),
shape = c("normal", "lognormal"),
selectedTaxa = crest_ex_selection, dbname = "crest_example",
leave_one_out = TRUE
)
#> Replace 'tempdir()' by the location where the sample should be saved (e.g. 'getwd()')
export(reconstr, dataname='crest_example',
fullUncertainties=TRUE, weights=TRUE, loo=TRUE, pdfs=TRUE,
loc=tempdir())
}
Run the code above in your browser using DataLab