costing_resource_use {packDAMipd}

Function to estimate the cost of resource use taken (from IPD)

Description

Function to estimate the cost of resource use taken (from IPD)

Usage

costing_resource_use(
  ind_part_data,
  name_use_col,
  each_length_num_use = NULL,
  each_use_provider_indicator = NULL,
  unit_length_use = "day",
  unit_cost_data,
  name_use_unit_cost,
  unit_cost_column,
  cost_calculated_in,
  list_code_use_indicator = NULL,
  list_code_provider_indicator = NULL
)

Arguments

ind_part_data

IPD

name_use_col

name of the column containing resource use

each_length_num_use

list of column names that shows length/number of repeated use eg. hospital admission

each_use_provider_indicator

list of column names that shows the bool indicators for the use of resource if this is to be included for the particular provider, say an nhs hospital use

unit_length_use

the column name that contains how many or how long used

unit_cost_data

unit costs data where the assumption is that the unit cost for resources such as hospital use, gp visit are listed in column resource/resource use with unit costs in another column and the units calculated as in another column

name_use_unit_cost

name of resource use (the column name in the unit cost data is assumed to be name/resource/type etc) in unit cost data

unit_cost_column

column name of unit cost in unit_cost_data

cost_calculated_in

column name of unit where the cost is calculated

list_code_use_indicator

if the column name_use_col shows codes to indicate the resource use provide the list of codes and resource use for eg., list(c("yes", "no", c(1,2)))

list_code_provider_indicator

column each_use_provider_indicator shows codes to indicate the resource use provide the list of codes and resource use for eg., list(c("yes", "no", c(1,2)))

Value

the calculated cost of resource uses along with original data

Examples

costs_file <- system.file("extdata", "costs_resource_use.csv",
package = "packDAMipd")
datafile <- system.file("extdata", "resource_use_hc_2.csv",
package = "packDAMipd")
ind_part_data <- load_trial_data(datafile)
unit_cost_data <- load_trial_data(costs_file)
res <- costing_resource_use(
  ind_part_data[1, ],
  "hospital_admission_1",
  list("length_1", "length_2"),
  list("nhs_1", "nhs_2"),
  "day",
  unit_cost_data, "Inpatient hospital admissions", "UnitCost",
  "UnitUsed",
  NULL, NULL
)