From d8f31d1323998f33d07535f55c81be380d93ca45 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 9 Feb 2022 12:19:14 +0100 Subject: Adapt saemix interface to saemix 3.0 on CRAN --- R/plot.mixed.mmkin.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'R/plot.mixed.mmkin.R') diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R index 1ac62b07..2903a05c 100644 --- a/R/plot.mixed.mmkin.R +++ b/R/plot.mixed.mmkin.R @@ -104,8 +104,9 @@ plot.mixed.mmkin <- function(x, if (inherits(x, "saem.mmkin")) { if (x$transformations == "saemix") backtransform = FALSE - degparms_i <- saemix::psi(x$so) - rownames(degparms_i) <- ds_names + psi <- saemix::psi(x$so) + rownames(psi) <- x$saemix_ds_order + degparms_i <- psi[ds_names, ] degparms_i_names <- setdiff(x$so@results@name.fixed, names(fit_1$errparms)) colnames(degparms_i) <- degparms_i_names residual_type = ifelse(standardized, "standardized", "residual") -- cgit v1.2.1