Increase parameter bound to 1000 for large fish

pbs-assess · Sep 7, 2023 · 981c007 · 981c007
1 parent ca0cbb4
commit 981c007
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/maturity.R b/R/maturity.R
@@ -633,9 +633,9 @@ extract_maturity_perc_re <- function(betas, random_intercepts, model) {
   out
 }
 
-binomial_perc <- function(x, a, b, perc = 0.5, linkinv, ...) {
+binomial_perc <- function(a, b, perc = 0.5, linkinv, ...) {
   f <- function(x) linkinv(a + b * x) - perc
-  uniroot(f, interval = c(-100, 100))$root
+  uniroot(f, interval = c(-100, 1000))$root
 }
 
 mat_par_delta_method <- function(model, perc = 0.5) {