print.coefmat {base} | R Documentation |
Utility function to be used in ``higher level'' print
methods, such as print.summary.lm
,
print.summary.glm
and print.anova
. The
goal is to provide a flexible interface with smart defaults such
that often, only x
needs to be specified.
print.coefmat(x, digits=max(3, getOption("digits") - 2), signif.stars = getOption("show.signif.stars"), dig.tst = max(1, min(5, digits - 1)), cs.ind = 1:k, tst.ind = k + 1, zap.ind = integer(0), P.values = NULL, has.Pvalue = nc >= 4 && substr(colnames(x)[nc],1,3) == "Pr(", na.print = "", ...)
x |
a numeric matrix like object, to be printed. |
digits |
number of digits to be used for most numbers. |
signif.stars |
logical; if TRUE , P-values are additionally
encoded visually as ``significance stars'' in order to help scanning of
long coefficient tables. It defaults to the show.signif.stars
slot of options(.) . |
dig.tst |
number of significant digits for the test statistics,
see tst.ind . |
cs.ind |
indices (integer) of column numbers which are (like) coefficients and standard errors to be formatted together. |
tst.ind |
indices (integer) of column numbers for test statistics. |
zap.ind |
indices (integer) of column numbers which should be
formatted by zapsmall(.) , i.e., by ``zapping'' values
close to 0. |
P.values |
logical or NULL ; if TRUE , the last column
of x is formatted by format.pval as P values.
If P.values = NULL , the default, it is set to TRUE
only if link{options}("show.coef.Pvalue") is TRUE
and x has at least 4 columns
and the last column name of x starts with "Pr(" . |
has.Pvalue |
logical; if TRUE , the last column of x
contains P values; in that case, it is printed iff
P.values (above). |
na.print |
a character string to code NA values in
printed output. |
... |
Further arguments for print(..) . |
Despite its name, this is not (yet) a method for the generic
print
function, because there is no class
"coefmat"
.
Invisibly returns its argument, x
.
Martin Maechler
print.summary.lm
,
format.pval
,
format
cmat <- cbind(rnorm(3, 10), sqrt(rchisq(3, 12))) cmat <- cbind(cmat, cmat[,1]/cmat[,2]) cmat <- cbind(cmat, 2*pnorm(-cmat[,3])) colnames(cmat) <- c("Estimate", "Std.Err", "Z value", "Pr(>z)") print.coefmat(cmat[,1:3]) print.coefmat(cmat) options(show.coef.Pvalues = FALSE) print.coefmat(cmat, digits=2) print.coefmat(cmat, digits=2, P.values = TRUE) options(show.coef.Pvalues = TRUE)# revert