On Thu, 21 Apr 2005 [EMAIL PROTECTED] wrote: > printCoefmat(signif.legend =FALSE) does not work properly. The option > "signif.legend = FALSE" is ignored as shown in the example below. > > 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)") > > # Prints the legend, although it should not > > printCoefmat(cmat, signif.stars =TRUE, signif.legend = FALSE) > # Estimate Std.Err Z value Pr(>z) > #[1,] 10.3567 3.3680 3.0750 0.002105 ** > #[2,] 9.1652 4.3609 2.1017 0.035581 * > #[3,] 10.4420 3.6527 2.8587 0.004253 ** > #--- > #Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 > > # Does not print the legend, although it should > > printCoefmat(cmat, signif.stars = FALSE, signif.legend = TRUE) > # Estimate Std.Err Z value Pr(>z) > #[1,] 10.3567 3.3680 3.0750 0.002105 > #[2,] 9.1652 4.3609 2.1017 0.035581 > #[3,] 10.4420 3.6527 2.8587 0.004253 > > > I think the problem can be easily solved by changing the code lines (3. > and 4. from the bottom) > > if (signif.stars) > cat("---\nSignif. codes: ", attr(Signif, "legend"), "\n") > to > > if (signif.legend) > cat("---\nSignif. codes: ", attr(Signif, "legend"), "\n") > > At least it works for the more sensibel case, that no legend should be > produced.
Probably if(signif.stars && signif.legend) would be most appropriate. -- Brian D. Ripley, [EMAIL PROTECTED] Professor of Applied Statistics, http://www.stats.ox.ac.uk/~ripley/ University of Oxford, Tel: +44 1865 272861 (self) 1 South Parks Road, +44 1865 272866 (PA) Oxford OX1 3TG, UK Fax: +44 1865 272595 ______________________________________________ R-devel@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-devel