if (FALSE) {
data(crest_ex)
data(crest_ex_pse)
data(crest_ex_selection)
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"
)
reconstr <- loo(reconstr)
}
## example using pre-saved reconstruction obtained with the previous command.
data(reconstr)
loo_vals <- plot_loo(reconstr, yax_incr=c(0.5, 50), bar_width=0.8,
col_pos=c('blue','cornflowerblue'),
col_neg=c('red', 'goldenrod3'))
Run the code above in your browser using DataLab