aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/summary.saem.mmkin.R5
1 files changed, 3 insertions, 2 deletions
diff --git a/R/summary.saem.mmkin.R b/R/summary.saem.mmkin.R
index 7337b0f3..46ab548b 100644
--- a/R/summary.saem.mmkin.R
+++ b/R/summary.saem.mmkin.R
@@ -136,10 +136,11 @@ summary.saem.mmkin <- function(object, data = FALSE, verbose = FALSE, distimes =
}
# Correlation of fixed effects (inspired by summary.nlme)
- varFix <- try(vcov(object$so)[1:n_fixed, 1:n_fixed])
- if (inherits(varFix, "try-error")) {
+ cov_so <- try(solve(object$so@results@fim), silent = TRUE)
+ if (inherits(cov_so, "try-error")) {
object$corFixed <- NA
} else {
+ varFix <- cov_so[1:n_fixed, 1:n_fixed]
stdFix <- sqrt(diag(varFix))
object$corFixed <- array(
t(varFix/stdFix)/stdFix,

Contact - Imprint