microcosting_tablets_long: Function to estimate the cost of tablets when IPD is in long...

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

Function to estimate the cost of tablets when IPD is in long format

Description

Function to estimate the cost of tablets when IPD is in long format

Usage

microcosting_tablets_long(
  the_columns,
  ind_part_data_long,
  name_med,
  brand_med = NULL,
  dose_med,
  unit_med = NULL,
  no_taken,
  freq_taken,
  timeperiod,
  unit_cost_data,
  unit_cost_column,
  cost_calculated_per,
  strength_column,
  list_of_code_names = NULL,
  list_of_code_freq = NULL,
  list_of_code_dose_unit = NULL,
  list_of_code_brand = NULL,
  eqdose_cov_tab = NULL,
  basis_strength_unit = NULL
)

Arguments

the_columns	columns that are to be used to convert the data from long to wide
ind_part_data_long	IPD
name_med	name of medication
brand_med	brand name of medication if revealed
dose_med	dose of medication used
unit_med	unit of medication ; use null if its along with the dose
no_taken	how many taken
freq_taken	frequency of medication
timeperiod	time period for cost calculation
unit_cost_data	unit costs data
unit_cost_column	column name of unit cost in unit_cost_data
cost_calculated_per	column name of unit where the cost is calculated
strength_column	column column name that contain strength of medication
list_of_code_names	if names is coded, give the code:name pairs, optional
list_of_code_freq	if frequency is coded, give the code:frequency pairs, optional
list_of_code_dose_unit	if unit is coded, give the code:unit pairs, optional
list_of_code_brand	if brand names are coded, give the code:brand pairs, optional
eqdose_cov_tab	table to get the conversion factor for equivalent doses, optional
basis_strength_unit	strength unit to be taken as basis required for total medication calculations

Value

the calculated cost of tablets along with original data

Examples

med_costs_file <- system.file("extdata", "medicaton_costs_all.xlsx",
package = "packDAMipd")
data_file <- system.file("extdata", "medication_all.xlsx",
package = "packDAMipd")
ind_part_data <- load_trial_data(data_file)
med_costs <- load_trial_data(med_costs_file)
conv_file <- system.file("extdata", "Med_calc.xlsx", package = "packDAMipd")
table <- load_trial_data(conv_file)
names <- colnames(ind_part_data)
ending <- length(names)
ind_part_data_long <- tidyr::gather(ind_part_data, measurement, value,
names[2]:names[ending], factor_key = TRUE)
the_columns <- c("measurement", "value")
res <- microcosting_tablets_long(the_columns,
ind_part_data_long = ind_part_data_long, name_med = "tab_name",
brand_med = "tab_brand", dose_med = "tab_strength",
unit_med = "tab_str_unit",
no_taken = "tab_no_taken", freq_taken = "tab_frequency",
timeperiod = "2 months",unit_cost_data = med_costs,
unit_cost_column = "UnitCost", cost_calculated_per  = "Basis",
strength_column = "Strength", list_of_code_names = NULL,
list_of_code_freq = NULL,list_of_code_dose_unit = NULL,
eqdose_cov_tab = table, basis_strength_unit = "mg")

packDAMipd documentation built on May 29, 2024, 3:18 a.m.