use of sample month values (rather than trip month) when available

pbs-assess · Sep 9, 2024 · 0abf3c1 · 0abf3c1
1 parent e5c5b59
commit 0abf3c1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/maturity.R b/R/maturity.R
@@ -47,7 +47,9 @@ fit_mat_ogive <- function(dat,
                           link = c("logit", "probit", "cloglog", "cauchit", "log")) {
   link <- match.arg(link)
 
+  if(!("month" %in% names(dat))){
   dat <- mutate(dat, month = lubridate::month(trip_start_date))
+  }
 
   dat <- dat %>% filter(maturity_convention_code != 9)