aboutsummaryrefslogtreecommitdiff
path: root/R/summary.saem.mmkin.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2022-12-02 13:28:26 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2022-12-02 13:28:26 +0100
commitcf73354f985be17352a4d538c6f9ea69f6be9aa9 (patch)
tree07ffd805a65c2c9992e4d6b48231849ed8a387c0 /R/summary.saem.mmkin.R
parent240568bf65f2257f1185927ac811dde18aeabe1d (diff)
Avoid redundant warnings in summaries
Diffstat (limited to 'R/summary.saem.mmkin.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