Merge pull request #302 from USEPA/189-tcplsubsetchid-overwrites-hitc…

…-to-boolean update mc overwrite of hitc to bool in tcplSubsetChid to actc
USEPA · Oct 16, 2024 · ceacf6a · ceacf6a
2 parents b5868f9 + 7ccfede
commit ceacf6a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/tcplSubsetChid.R b/R/tcplSubsetChid.R
@@ -92,9 +92,9 @@ tcplSubsetChid <- function(dat, flag = TRUE, type = "mc", export_ready = FALSE)
     }
     if (!"casn" %in% names(dat)) dat <- tcplPrepOtpt(dat)
     # for now we treat all >=.9 hitcall equally
-    dat[, hitc := hitc >= .9]
-    dat[, chit := mean(hitc[hitc %in% 0:1]) >= 0.5, by = list(aeid, chid)]
-    dat <- dat[hitc == chit | (is.na(chit) & (hitc == -1 | is.na(m4id)))]
+    dat[, actc := hitc >= .9]
+    dat[, chit := mean(actc[actc %in% 0:1]) >= 0.5, by = list(aeid, chid)]
+    dat <- dat[actc == chit | (is.na(chit) & (actc == -1 | is.na(m4id)))]
 
 
     dat[, fitc.ordr := NA_integer_]