diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-12-02 13:28:26 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-12-02 13:28:26 +0100 |
| commit | cf73354f985be17352a4d538c6f9ea69f6be9aa9 (patch) | |
| tree | 07ffd805a65c2c9992e4d6b48231849ed8a387c0 /R | |
| parent | 240568bf65f2257f1185927ac811dde18aeabe1d (diff) | |
Avoid redundant warnings in summaries
Diffstat (limited to 'R')
| -rw-r--r-- | R/summary.saem.mmkin.R | 5 |
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, |