comments

STAPM · May 26, 2023 · 3d8cb73 · 3d8cb73
1 parent 9d6db1b
commit 3d8cb73
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/ukhls_clean_post_process_benefits.R b/R/ukhls_clean_post_process_benefits.R
@@ -12,10 +12,10 @@ ukhls_post_clean_benefit <- function(data = NULL) {
   data <- data[order(id,wave_no),]
 
   ### Unemployment benefits
-  data[b_jbseek_allowance == "receipt" | (b_UniCred == "receipt" & l_econ_stat_3cat == "unemployed"), unemployment_benefits := "receipt"]
-  data[b_jbseek_allowance != "receipt" & b_UniCred != "receipt", unemployment_benefits := "non_receipt"]
-  data[b_jbseek_allowance != "receipt" & b_UniCred == "receipt" & l_econ_stat_3cat != "unemployed", unemployment_benefits := "non_receipt"]
-  data[is.na(b_jbseek_allowance) & is.na(b_UniCred), unemployment_benefits := NA]
+  data[b_jbseek_allowance == "receipt" | (b_UniCred == "receipt" & l_econ_stat_3cat == "unemployed"), unemployment_benefits := "receipt"] # conditions for setting receipt
+  data[b_jbseek_allowance != "receipt" & b_UniCred != "receipt", unemployment_benefits := "non_receipt"] # not in receipt conditions
+  data[b_jbseek_allowance != "receipt" & b_UniCred == "receipt" & l_econ_stat_3cat != "unemployed", unemployment_benefits := "non_receipt"] # receipt of UniCred but not the relevant employment status
+  data[is.na(b_jbseek_allowance) & is.na(b_UniCred), unemployment_benefits := NA] # generate NA values if ALL are missing
 
   ### In-Work benefits
   data[(b_iw_lone_cred == "receipt" | b_RTW_cred == "receipt" | b_work_tax_cred == "receipt" | b_council_tax_benefit == "receipt" | b_rate_rebate == "receipt" | b_housing_benefit == "receipt" | b_rent_rebate == "receipt") | (b_UniCred == "receipt" & l_econ_stat_3cat == "employed"), in_work_benefits := "receipt"]