Calculate Event Free Survival (EFS) Costs

This function calculates the costs associated with the Neuroblastoma interventions, `Dinutuximab β` (GD2) and `Isotretinoin` (TT).

Usage

calculate_efs_costs(l_params, GD2_cycle_days, TT_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.

GD2_cycle_days

The number of days in a GD2 treatment cycle. Default value is `35` days.

TT_cycle_days

The number of days in a TT treatment cycle. Default value is `28` days.

Value

A list containing `Dinutuximab β` (GD2) and `Isotretinoin` (TT) costs over the model time-horizon.

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 AE treatment costs
l_GD2_efs_costs <- NeuroblastomaPSM::calculate_efs_costs(
 l_params = params,
 GD2_cycle_days = 35,
 TT_cycle_days = 28
)

l_GD2_efs_costs
}