From f215080efba4097ccdaa2d1208edd36c26d7978a Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sat, 15 Apr 2023 20:00:00 +0200
Subject: 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).
---
 R/saem.R | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'R/saem.R')

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) {
-- 
cgit v1.2.1