update bmd bounds (#170)

USEPA · Dec 12, 2023 · 8e6fdf2 · 8e6fdf2
1 parent 2fd8bfb
commit 8e6fdf2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tcplFit2.R b/R/tcplFit2.R
@@ -92,7 +92,7 @@ tcplHit2 <- function(mc4, coff) {
   # browser()
   test <- nested_mc4 %>%
     dplyr::rowwise() %>%
-    mutate(df = list(tcplhit2_core(params = params, conc = unlist(conc), resp = unlist(resp), bmed = bmed, cutoff = coff, onesd = onesd))) %>%
+    mutate(df = list(tcplhit2_core(params = params, conc = unlist(conc), resp = unlist(resp), bmed = bmed, cutoff = coff, onesd = onesd, bmd_low_bnd = .1, bmd_up_bnd = 10))) %>%
     select(-conc, -resp)
   # test <- NULL
   # for(id in nested_mc4$m4id){