Add absolute for 1/2 measures step

mitre · Aug 18, 2023 · 0522454 · 0522454
1 parent a62bb0e
commit 0522454
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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