# Compute productivity costs

Source: `R/productivity-costs.R`
`sim_prod_costs.Rd`

Compute simulated productivity costs given simulated disease progression including costs from temporary disability, permanent disability, and premature mortality.

    sim_prod_costs(econmod, patients, params = iviNSCLC::params_costs_prod,
      dr = 0.03, retirement_age = 65, method = "hca")

## Arguments

econmod | An economic model of class `"IndivCtstm"`. Disease progression must have been previously simulated (i.e., `$disprog_` cannot be `NULL`.)
patients | A `data.table` returned from `create_patients`.
params | An object of the same format as `params_costs_prod`.
dr | Discount rate.
retirement_age | A numeric scalar denoting age at retirement.
method | Method used to compute productivity losses. Currently only supports the "human capital approach" (`hca`).

## Value

An object of class "prod_costs", which is a `data.table` containing productivity costs. Columns are:

category

  The cost category.

dr

  The discount rate.

sample

  `sample` from `econmod$disprog_`

strategy_id

  `strategy_id` from `econmod$disprog_`

cost

  Productivity costs.

## See also

See the example in the tutorial.