Calculate Post Progression Survival (PPS) Costs

Usage

calculate_pps_costs(l_params, Temo_cycle_days, Iri_cycle_days)

Arguments

l_params

A list of model parameters including the list of parameters in the list l_psm_parameters in addition to:

time_horizon: The time horizon for the model in years.
cycle_length: The length of a model cycle measured in years.
disc_rate_costs: The annual discount rate for incurred costs.
disc_rate_qalys: The annual discount rate for accrued QALYs.

Temo_cycle_days

The number of days in a Temozolomide treatment cycle. Default value is `21` days.

Iri_cycle_days

The number of days in a Irinotecan treatment cycle. Default value is `21` days.

Value

A scalar representing the costs associated with PPS.

Examples

if (FALSE) {
# Define model parameters
params <- c(
  time_horizon = 10,
  cycle_length = 1/12,
  disc_rate_costs = 0.035,
  disc_rate_qalys = 0.015,
  NeuroblastomaPSM::l_psm_parameters
)

# Calculate treatment costs
pps_costs <- NeuroblastomaPSM::calculate_pps_costs(
 l_params = params,
 Temo_cycle_days = 21,
 Iri_cycle_days = 21
)

pps_costs
}