diff options
Diffstat (limited to 'R/saem.R')
| -rw-r--r-- | R/saem.R | 3 | 
1 files changed, 2 insertions, 1 deletions
@@ -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)  }  | 
