

   PPrriinntt CCooeeffffiicciieennttss'' MMaattrriicceess

        print.coefmat(x, digits=max(3, .Options$digits - 2),
                      signif.stars = .Options$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 = "", ...)

   AArrgguummeennttss::

          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 statis-
             tics, see `tst.ind'.

     cs.ind: indices (integer) of column numbers which are
             (like) coefficients and standard errors to be for-
             matted 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 ``zap-
             ping'' 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' con-
             tains 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(..)'.

   DDeessccrriippttiioonn::

        Utility function to be used in ``higher level'' `print'
        methods, such as `print.summary.lm', `print.sum-
        mary.glm' and `print.anova'.  The goal is to provide a
        flexible interface with smart defaults such that often,
        only `x' needs to be specified.

   DDeettaaiillss::

        Despite its name, this is not (yet) a method for the
        generic `print' function, because there is no class
        `"coefmat"'.

   VVaalluuee::

        Invisibly returns its argument, `x'.

   AAuutthhoorr((ss))::

        Martin Maechler

   SSeeee AAllssoo::

        `print.summary.lm', `format.pval', `format'

   EExxaammpplleess::

        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

