if (FALSE) {
data(crest_ex_pse)
data(crest_ex_selection)
reconstr <- crest.get_modern_data(
pse = crest_ex_pse, taxaType = 0,
climate = c("bio1", "bio12"),
selectedTaxa = crest_ex_selection, dbname = "crest_example"
)
reconstr <- crest.calibrate(reconstr,
geoWeighting = TRUE, climateSpaceWeighting = TRUE,
bin_width = c(2, 20), shape = c("normal", "lognormal")
)
plot_climateSpace(reconstr)
}
Run the code above in your browser using DataLab