costing_resource_use: Function to estimate the cost of resource use taken (from...

In packDAMipd: Decision Analysis Modelling Package with Parameters Estimation Ability from Individual Patient Level Data

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,
  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
)

packDAMipd documentation built on March 3, 2021, 5:07 p.m.