root <- rprojroot::find_rstudio_root_file()

library(knitr)
knitr::opts_chunk$set(echo = TRUE, out.height = '7in', out.width = '9in',
                      fig.path = paste0(root, "/manuscript/figures/"))

RCP4.5

Mean suitability among the 5 climate models

rcp45.mean <- plot_ensemble("mean", "rcp45")

SD suitability among the 5 climate models

rcp45.sd <- plot_ensemble("sd", "rcp45")

Difference Future - Present suitability

rcp45.diff <- compare_suitab_futu_pres(rcp45.mean)

RCP8.5

Mean suitability among the 5 climate models

rcp85.mean <- plot_ensemble("mean", "rcp85")

SD suitability among the 5 climate models

rcp85.sd <- plot_ensemble("sd", "rcp85")

Difference Future - Present suitability

rcp85.diff <- compare_suitab_futu_pres(rcp85.mean)
devtools::session_info()


Pakillo/Carex.bipolar documentation built on July 27, 2020, 2:09 p.m.