From 0522454d547b10b32889c7f063ff8f14ad1f8ef4 Mon Sep 17 00:00:00 2001 From: "Dr. Hannah De los Santos" Date: Fri, 18 Aug 2023 12:14:58 -0400 Subject: [PATCH] Add absolute for 1/2 measures step --- R/infants_clean.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/infants_clean.R b/R/infants_clean.R index 47300ab..de47921 100644 --- a/R/infants_clean.R +++ b/R/infants_clean.R @@ -1685,7 +1685,7 @@ cleanbatch_infants <- function(data.df, max_ind <- if (!all(is.na(df$comp_diff))){ which.max(df$comp_diff) } else { - which.max(df$tbc.sd) + which.max(abs(df$tbc.sd)) } # 19F/G: which exclusion