diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-09 07:31:00 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-09 07:31:00 +0100 |
| commit | e2cb0d4668f17f57c65f3ff94a7e17c784eaf4ba (patch) | |
| tree | 61b2c6d08c12bfa3ecc8082ad05bb37088e024a3 /R/summary.saem.mmkin.R | |
| parent | d452a367d517938a6cd350383e890ed1138d2170 (diff) | |
Custom analytical solutions for saemix
Currently SFO-SFO and DFOP-SFO. Speed increase factor about 60
Diffstat (limited to 'R/summary.saem.mmkin.R')
| -rw-r--r-- | R/summary.saem.mmkin.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R index f7110dd0..4c9776a6 100644 --- a/R/summary.saem.mmkin.R +++ b/R/summary.saem.mmkin.R @@ -96,7 +96,7 @@ summary.saem.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes = colnames(confint_ranef)[1] <- "est." # Error model - enames <- object$so@results@name.sigma + enames <- if (object$err_mod == "const") "a.1" else c("a.1", "b.1") confint_errmod <- as.matrix(conf.int[enames, c("estimate", "lower", "upper")]) colnames(confint_errmod)[1] <- "est." |