check eqn>0

LAPKB · Mar 15, 2024 · 4ba43ab · 4ba43ab
1 parent cd9483e
commit 4ba43ab
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/PM_model.R b/R/PM_model.R
@@ -566,6 +566,7 @@ PM_model_list <- R6::R6Class("PM_model_list",
       neqs <- stringr::str_extract_all(eqs, "xp\\((\\d)\\)") %>%
         unique() %>%
         length()
+      if (neqs == 0) {stop("Error: PMcore does not support analityc equations, provide a eqn block.")}
       content <- gsub("</neqs>", neqs, content)
 
       cov <- self$model_list$cov %>% map(function(c) {