Fix cutoff in pairs step

mitre · Aug 14, 2023 · bb6129d · bb6129d
1 parent eaa38ff
commit bb6129d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/infants_clean.R b/R/infants_clean.R
@@ -1651,7 +1651,7 @@ cleanbatch_infants <- function(data.df,
       if (diff_tbc.sd > 4 & (diff_ctbc.sd > 4 | is.na(diff_ctbc.sd)) &
           diff_agedays >=365.25){
         df[max_ind, exclude := "Exclude-2-meas->1-year"]
-      } else if (diff_tbc.sd > 2.5 & (diff_ctbc.sd > 4 | is.na(diff_ctbc.sd)) &
+      } else if (diff_tbc.sd > 2.5 & (diff_ctbc.sd > 2.5 | is.na(diff_ctbc.sd)) &
                  diff_agedays < 365.25){
         df[max_ind, exclude := "Exclude-2-meas-<1-year"]
       }