validation_pairs(SIREmulators$ems, SIRSample$validation, SIREmulators$targets)
wider_ranges <- purrr::map(SIREmulators$ems[[1]]$ranges, ~.*c(-2, 2))
validation_pairs(SIREmulators$ems, SIRSample$validation,
SIREmulators$targets, ranges = wider_ranges, cb = TRUE)
Run the code above in your browser using DataLab