From a5cc0d6d60084b9e74bf78a68184c8a96b9feb01 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 13 Nov 2020 10:32:45 +0100
Subject: Annotation of the fix

---
 R/saem.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/saem.R b/R/saem.R
index 18152baf..408e62e8 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -332,7 +332,7 @@ saemix_model <- function(object, cores = 1, verbose = FALSE, ...) {
       uid <- unique(id)
 
       res_list <- parallel::mclapply(uid, function(i) {
-          transparms_optim <- as.numeric(psi[i, ])
+          transparms_optim <- as.numeric(psi[i, ]) # psi[i, ] is a dataframe when called in saemix.predict
           names(transparms_optim) <- names(degparms_optim)
 
           odeini_optim <- transparms_optim[odeini_optim_parm_names]
-- 
cgit v1.2.1