Plot A Single Pair of Mortality Rates Curves From A Results List

PlotResultsMortalityRates(results, trial = 1, year = 2020)

Arguments

results

Results list (as returned by RunExperiments())

trial

Trail number (index into the results list)

year

Year in trial timeseries to plot

Value

ggplot grob, or NULL on error

Examples

if (FALSE) {
library(pacehrh)

pacehrh::InitializePopulation()
pacehrh::InitializeScenarios()
pacehrh::InitializeStochasticParameters()
pacehrh::InitializeSeasonality()

scenario <- "ScenarioName"

results <-
  pacehrh::RunExperiments(scenarioName = scenario,
                       trials = 100)

g <- pacehrh::PlotResultsMortalityRates(results, 49, 2030)
print(g)
}