diff --git a/analysis/collation_code/phenotype_sensitivity_table_collation.R b/analysis/collation_code/phenotype_sensitivity_table_collation.R index 7800eaa..49c2a5f 100644 --- a/analysis/collation_code/phenotype_sensitivity_table_collation.R +++ b/analysis/collation_code/phenotype_sensitivity_table_collation.R @@ -18,19 +18,19 @@ fs::dir_create(here("output", "collated", "descriptive")) # import phenotype sensitivity by cohort collated_phenotype_sensitivity = rbind( - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2016_2017.csv"))) %>% mutate(subset = "2016_17"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2017_2018.csv"))) %>% mutate(subset = "2017_18"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2018_2019.csv"))) %>% mutate(subset = "2018_19"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2019_2020.csv"))) %>% mutate(subset = "2019_20"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2020_2021.csv"))) %>% mutate(subset = "2020_21"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2021_2022.csv"))) %>% mutate(subset = "2021_22"), - read_csv(here::here("output", "sensitivity", paste0("phenotype_sensitivity_", + read_csv(here::here("output", "exploratory", paste0("phenotype_sensitivity_", cohort, "_2022_2023.csv"))) %>% mutate(subset = "2022_23") )