```r library(mrggsave) library(pmplots) p <- dv_pred(pmplots_data_obs()) mrggsave(list(p,p), script = "foo.R", stem = "blah", labeller = NULL, dir = ".") ```