R/print.threg.R

Defines functions print.threg

Documented in print.threg

print.threg <-
 function(x, digits=max(options()$digits - 4, 3), ...)
 {
        if (!is.null(cl<- x$call)) {
		cat("Call:\n")
		dput(cl)
		cat("\n")
	}

        coef <- x$coefficients
        se <- sqrt(diag(x$var))
	tmp <- cbind(coef, se, coef/se,
	       signif(1 - pchisq((coef/ se)^2, 1), digits -1))
	dimnames(tmp) <- list(names(coef), c("coef", 
	    "se(coef)", "z", "p"))
        prmatrix(tmp)
	cat("\n")
	cat("Log likelihood =", format(round(x$loglik, 2)), ",", " AIC =", format(round(x$AIC, 2)),  sep="")
	cat("\n")
        invisible(x)

}
	

Try the threg package in your browser

Any scripts or data that you put into this service are public.

threg documentation built on May 29, 2017, 9:37 p.m.