From 17daaf92e0b3841ac3746e7867ec602d9e82f460 Mon Sep 17 00:00:00 2001 From: Ryan Kai Le Chen Date: Wed, 6 Sep 2023 16:22:46 +0100 Subject: [PATCH] Add household smoker number lag Removed additional message showing in package --- R/ukhls_combine_hhold_smokers.R | 2 +- R/ukhlsclean.R | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/R/ukhls_combine_hhold_smokers.R b/R/ukhls_combine_hhold_smokers.R index 38cb189..e48983d 100644 --- a/R/ukhls_combine_hhold_smokers.R +++ b/R/ukhls_combine_hhold_smokers.R @@ -22,7 +22,7 @@ ukhls_combine_hhold_smokers <- function(data = NULL) { hhold <- hhold[, `NA` := NULL] hhold <- hhold[, non_smoker := NULL] hhold <- hhold[, smoker := NULL] - data <- merge(data, hhold, by = "hidp") + data <- suppressWarnings(suppressMessages(merge(data, hhold, by = "hidp"))) return(data) } diff --git a/R/ukhlsclean.R b/R/ukhlsclean.R index 3d7d183..ff37ebe 100644 --- a/R/ukhlsclean.R +++ b/R/ukhlsclean.R @@ -194,6 +194,10 @@ data <- ukhlsclean::ukhls_combine_waves(data_list) ### Summation of smokers in household data <- ukhls_combine_hhold_smokers(data) +##################################### +### Lag household smokers to (t-1) +data <- data[order(pidp, wave_no), lag.s_hhold_smokers := data.table::shift(s_hhold_smokers, n=1, type="lag"), by=pidp] + ################################### ### Combine youth data