Increase test coverage

Also, using mkin analytical solutions for more than one observed
variable is not supported (but could be if out_values would be
reordered).

1 files changed, 4 insertions, 0 deletions

diff --git a/R/saem.R b/R/saem.R
index 83de97b0..a9f97d23 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -307,6 +307,10 @@ saemix_model <- function(object, solution_type = "auto",
 
   mkin_model <- object[[1]]$mkinmod
 
+  if (length(mkin_model$spec) > 1 & solution_type[1] == "analytical") {
+    stop("mkin analytical solutions not supported for more thane one observed variable")
+  }
+
   degparms_optim <-  mean_degparms(object, test_log_parms = test_log_parms)
   na_degparms <- names(which(is.na(degparms_optim)))
   if (length(na_degparms) > 0) {