controlling number of decimals printed in anova tables?

On Mon, Feb 16, 2009 at 11:08 AM, Dieter Menne

Gabor Grothendieck <ggrothendieck <at> gmail.com> writes:

Or safer:

df <- as.integer(round(...))

Did you try? I believe it is a problem of printCoefmat that has quite
a few options for special column, but none for df. Ask Martin M?chler.

Yes, with as.integer(round(...)) It looks like this:

modelFit.glm(berk.mod2)

Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

modelFit.glm(berk.mod2)

Analysis of Deviance Table
        Formula:  Freq ~ Dept * (Gender + Admit)

           Deviance   df Pr(>Chi^2)
Null model     2650   23
Model            22    6     0.0014 **
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Also note:

as.integer(1-.00001)

[1] 0

as.integer(round(1-.00001))

[1] 1