aboutsummaryrefslogtreecommitdiff
path: root/R/saem.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/saem.R')
-rw-r--r--R/saem.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/saem.R b/R/saem.R
index 26ea1c8d..d3b23861 100644
--- a/R/saem.R
+++ b/R/saem.R
@@ -227,7 +227,8 @@ print.saem.mmkin <- function(x, digits = max(3, getOption("digits") - 3), ...) {
cat("\nFitted parameters:\n")
conf.int <- x$so@results@conf.int[c("estimate", "lower", "upper")]
rownames(conf.int) <- x$so@results@conf.int[["name"]]
- print(conf.int, digits = digits)
+ conf.int.var <- grepl("^Var\\.", rownames(conf.int))
+ print(conf.int[!conf.int.var, ], digits = digits)
invisible(x)
}

Contact - Imprint