From 4027822723e8085415104af0c38ec072a8be2578 Mon Sep 17 00:00:00 2001 From: Sam Greenbury Date: Tue, 12 Sep 2023 16:59:17 +0100 Subject: [PATCH] Remove ethnicity from output as unused --- scripts/data_prep/run1/SPC_pipelineLAD_run_1.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/data_prep/run1/SPC_pipelineLAD_run_1.R b/scripts/data_prep/run1/SPC_pipelineLAD_run_1.R index 7bf792e..967bea8 100644 --- a/scripts/data_prep/run1/SPC_pipelineLAD_run_1.R +++ b/scripts/data_prep/run1/SPC_pipelineLAD_run_1.R @@ -124,7 +124,7 @@ print("... and writing output") merge$region <- region out_cols <- c( "pid", "hid", "MSOA11CD", "region", "sex", "age", - "ethnicity", "soc2010", "pwkstat", "incomeH" + "soc2010", "pwkstat", "incomeH" ) merge <- merge %>% select(all_of(out_cols)) outpath <- paste(folderOut, countryR, "/", date, "/", sep = "")