if (FALSE) {
if(requireNamespace('clipr', quietly=TRUE)) {
reconstr <- crest(
df = crest_ex, pse = crest_ex_pse, taxaType = 0,
climate = c("bio1", "bio12"), bin_width = c(2, 20),
shape = c("normal", "lognormal"),
selectedTaxa = crest_ex_selection, dbname = "crest_example",
leave_one_out = TRUE
)
copy_crest(reconstr, uncertainties=TRUE)
## You can now paste the values in a spreadsheet.
}
}
Run the code above in your browser using DataLab