Do not overwrite error load code

mitre · Aug 14, 2023 · 3c4d7bb · 3c4d7bb
1 parent bb6129d
commit 3c4d7bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/infants_clean.R b/R/infants_clean.R
@@ -1700,7 +1700,7 @@ cleanbatch_infants <- function(data.df,
                              ))/.N,
           by = c("subjid", "param")]
 
-  data.df[valid_set & err_ratio > .4,
+  data.df[valid_set & err_ratio > .4 & exclude == "Include",
           exclude := "Exclude-Error-load"]