From 833d0fa6b5b4c0495e34d96709c3faf11ab4b0ee Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 30 Apr 2014 16:13:13 +0200
Subject: Fix of bug introduced with t-test

---
 R/mkinfit.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/mkinfit.R b/R/mkinfit.R
index d3edd2f..f44c67d 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -332,7 +332,7 @@ summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05,
   resvar <- object$ssr / rdf
   if (!is.numeric(covar)) {
     covar <- NULL
-    se <- lci <- uci <- rep(NA, p)
+    se <- lci <- uci <- tval <- pval1 <- pval2 <- rep(NA, p)
   } else {
     rownames(covar) <- colnames(covar) <- pnames
     se     <- sqrt(diag(covar) * resvar)
-- 
cgit v1.2.1