scripts/tables--wide_combined_ce.R

In n8thangreen/LTBIscreeningproject: LTBI screening cost-effectiveness analysis

#
# LTBI screening
# N Green
# combine-costeffectiveness-tables.R
#
# combine all CE output in to single wide table
#

##TODO: this is just a cbind version of long combined_costeffectiveness_table


flder <-
  list.dirs(parent_folder)[-1] %>%
  sort()

tab <- matrix(seq_len(n.scenarios), ncol = 1)

for (i in seq_along(flder)) {

  tab <-
    read.csv(paste0(flder[i], "/costeffectiveness_table.csv")) %>%
    cbind(tab, .)
}

tab <-  tab[ ,!names(tab) == 'X']

policy_desc <- read.csv(paste0(parent_folder, "/policies-inputs.csv"))

write.csv(tab, file = paste0(parent_folder, "/wide_combined_costeffectiveness_tables.csv"))