# \donttest{
data(eem_list)
data(pf_models)
eem_list <- eem_extract(eem_list, 1:10)
eem_list <- eem_rem_scat(eem_list, rep(TRUE, 4), c(15,10,16,12))
eempf_residuals_plot(pf4[[1]], eem_list, cores = 2)
# use other colour schemes:
# eempf_residuals_plot(pf4[[1]], eem_list, colpal = c("blue",heat.colors(50)))
# plots <- eempf_residuals_plot(pf4[[1]], eem_list)
# lapply(plots, function(pl){
# pl +
# scale_fill_viridis_c() +
# scale_colour_viridis_c()
# })
# }
Run the code above in your browser using DataLab