From eaa38ff441e8438142d962c3eca6284d003d5de8 Mon Sep 17 00:00:00 2001 From: "Dr. Hannah De los Santos" Date: Mon, 14 Aug 2023 11:12:28 -0400 Subject: [PATCH] Remove edge calculations for HC in step 17 --- R/infants_clean.R | 8 -------- 1 file changed, 8 deletions(-) diff --git a/R/infants_clean.R b/R/infants_clean.R index 9a96c11..609bc22 100644 --- a/R/infants_clean.R +++ b/R/infants_clean.R @@ -1436,12 +1436,6 @@ cleanbatch_infants <- function(data.df, df[d_agedays >= 107 & d_agedays < 153, whoinc.age.hc := 4] df[d_agedays >= 153 & d_agedays < 199, whoinc.age.hc := 6] - # update the edge intervals - df[d_agedays < 46, d_agedays := 45] - df[d_agedays == 45, whoinc.age.hc := 2] - df[d_agedays > 199, d_agedays := 200] - df[d_agedays == 200, whoinc.age.hc := 6] - # 17K # merge with WHO # add the column name we want to grab @@ -1558,8 +1552,6 @@ cleanbatch_infants <- function(data.df, idx <- df$index[which.max(df[df$val_excl != "Include", absval])] - - exclude_all[ind_all == idx] <- df[index == idx, val_excl] #set up to continue on