R4GoodPersonalFinances (version 1.2.0)

plot_joint_survival: Plotting the results of Gompertz model calibration for joint survival

Description

Plotting the results of Gompertz model calibration for joint survival

Usage

plot_joint_survival(params, include_gompertz = FALSE)

Value

A ggplot2::ggplot() object showing the survival probabilities for two individuals and their joint survival probability.

Arguments

params

A list returned by calc_gompertz_joint_parameters() function.

include_gompertz

A logical. Should the Gompertz survival curve be included in the plot?

Examples

params <- calc_gompertz_joint_parameters(
  p1 = list(
    age        = 65,
    mode       = 88,
    dispersion = 10.65
  ),
  p2 = list(
    age        = 60,
    mode       = 91,
    dispersion = 8.88
  ),
  max_age = 110
)

plot_joint_survival(params = params, include_gompertz = TRUE)