stop with message for sex, selex

afsc-assessments · Dec 18, 2024 · fc68fd5 · fc68fd5
1 parent 655f0eb
commit fc68fd5
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/R/check_data.R b/R/check_data.R
@@ -8,6 +8,7 @@
 
 
 check_data <- function(dat, sex = FALSE, showPlot = TRUE) {
+  if(sex) stop("Cannot currently handle sex structure, set to FALSE")
 
   ## header checks
   colheads <- tolower(names(dat));names(dat) <- colheads

diff --git a/R/refit_Growth.R b/R/refit_Growth.R
@@ -13,7 +13,7 @@
 #' @export
 
 refit_Growth <- function(dat = simulated_data, breakpoints, selex = FALSE, showPlot = TRUE){
-
+  if(selex) stop("Cannot currently handle selectivity, input must be FALSE.")
   if(any(is.na(breakpoints))) stop('Cannot handle NA in breakpoints. Did you mean to use +/-Inf?')
   # Apply the function to each row of df2
   split_tables <- purrr::map(1:nrow(breakpoints), function(i) {