From df916b91c90f80e2c68f3e136a7b6e07b8c6bae1 Mon Sep 17 00:00:00 2001
From: jranke <jranke@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Mon, 26 Nov 2012 23:03:19 +0000
Subject: - Added an S3 plot method for mkinfit models - Fixed a bug in the
 mkinfit summary method which crashed on missing covariance matrices

git-svn-id: svn+ssh://svn.r-forge.r-project.org/svnroot/kinfit/pkg/mkin@58 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 R/mkinfit.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/mkinfit.R')

diff --git a/R/mkinfit.R b/R/mkinfit.R
index 02155966..3649b204 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -317,7 +317,7 @@ print.summary.mkinfit <- function(x, digits = max(3, getOption("digits") - 3), .
     print(x$SFORB, digits=digits,...)
   }    
 
-  printcor <- !is.null(x$cov.unscaled)
+  printcor <- is.numeric(x$cov.unscaled)
   if (printcor){
     Corr <- cov2cor(x$cov.unscaled)
     rownames(Corr) <- colnames(Corr) <- rownames(x$par)
-- 
cgit v1.2.1