From 3d8cb73ff8f9c530a8b3210a988fa8da67da5a92 Mon Sep 17 00:00:00 2001 From: Ryan Kai Le Chen Date: Fri, 26 May 2023 13:07:57 +0100 Subject: [PATCH] comments --- R/ukhls_clean_post_process_benefits.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/ukhls_clean_post_process_benefits.R b/R/ukhls_clean_post_process_benefits.R index 3a2813c..5b37a14 100644 --- 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"]