Avoid a warning produced by initial fits in gmkin

1 files changed, 9 insertions, 7 deletions

diff --git a/R/mkinfit.R b/R/mkinfit.R
index 0f488ec8..5c1de846 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -594,13 +594,15 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), .
   cat("\nOptimised, transformed parameters:\n")

   print(signif(x$par, digits = digits))

 

-  cat("\nParameter correlation:\n")

-  if (!is.null(x$cov.unscaled)){

-    Corr <- cov2cor(x$cov.unscaled)

-    rownames(Corr) <- colnames(Corr) <- rownames(x$par)

-    print(Corr, digits = digits, ...)

-  } else {

-    cat("Could not estimate covariance matrix; singular system:\n")

+  if (x$niter != 0) {

+    cat("\nParameter correlation:\n")

+    if (!is.null(x$cov.unscaled)){

+      Corr <- cov2cor(x$cov.unscaled)

+      rownames(Corr) <- colnames(Corr) <- rownames(x$par)

+      print(Corr, digits = digits, ...)

+    } else {

+      cat("Could not estimate covariance matrix; singular system:\n")

+    }

   }

 

   cat("\nResidual standard error:",