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

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

PlotResultsFertilityRates(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::PlotResultsFertilityRates(results, 49, 2030)
print(g)
}