aboutsummaryrefslogtreecommitdiff
path: root/R/plot.mixed.mmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/plot.mixed.mmkin.R')
-rw-r--r--R/plot.mixed.mmkin.R8
1 files changed, 3 insertions, 5 deletions
diff --git a/R/plot.mixed.mmkin.R b/R/plot.mixed.mmkin.R
index 0d6b15c0..d8a1c2ac 100644
--- a/R/plot.mixed.mmkin.R
+++ b/R/plot.mixed.mmkin.R
@@ -75,8 +75,8 @@ plot.mixed.mmkin <- function(x,
rownames(degparms_optim) <- ds_names
degparms_optim_names <- setdiff(names(fit_1$par), names(fit_1$errparms))
colnames(degparms_optim) <- degparms_optim_names
- residual_type = ifelse(standardized, "iwres", "ires")
- residuals <- x$so@results@predictions[[residual_type]]
+ residual_type = ifelse(standardized, "residual", "standardized")
+ residuals <- x$data[[residual_type]]
degparms_pop <- x$so@results@fixed.effects
names(degparms_pop) <- degparms_optim_names
}
@@ -95,9 +95,7 @@ plot.mixed.mmkin <- function(x,
odeini_names <- grep("_0$", degparms_all_names, value = TRUE)
odeparms_names <- setdiff(degparms_all_names, odeini_names)
- residual_type = ifelse(standardized, "iwres", "ires")
-
- observed <- cbind(x$data,
+ observed <- cbind(x$data[c("ds", "name", "time", "value")],
residual = residuals)
solution_type = fit_1$solution_type

Contact - Imprint