diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinfit.R | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index 16b4ff3c..d3edd2fb 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -338,14 +338,17 @@ summary.mkinfit <- function(object, data = TRUE, distimes = TRUE, alpha = 0.05, se <- sqrt(diag(covar) * resvar)
lci <- param + qt(alpha/2, rdf) * se
uci <- param + qt(1-alpha/2, rdf) * se
-
+ tval <- param/se
+ pval1 <- 2 * pt(abs(tval), rdf, lower.tail = FALSE)
+ pval2 <- pt(abs(tval), rdf, lower.tail = FALSE)
}
names(se) <- pnames
modVariance <- object$ssr / length(object$residuals)
- param <- cbind(param, se, lci, uci)
- dimnames(param) <- list(pnames, c("Estimate", "Std. Error", "Lower", "Upper"))
+ param <- cbind(param, se, lci, uci, tval, pval1, pval2)
+ dimnames(param) <- list(pnames, c("Estimate", "Std. Error", "Lower", "Upper",
+ "t value", "Pr(>|t|)", "Pr(>t)"))
blci <- buci <- numeric()
# Only transform boundaries of CI for one parameter at a time
|