[R] How to change the significant codes default?

[Liaw, Andy]

> From: Uwe Ligges
> 
> (Ted Harding) wrote:
> 
> > On 20-Nov-04 Uwe Ligges wrote:
> > 
> >>Shigeru Mase wrote:
> >>
> >>>Dear R experts,
> >>>
> >>>I am posting this question on behalf of a Japanese R user
> >>>who wants to know how to change the siginificant codes default.
> >>>As you know, R's default significant codes are:
> >>>
> >>> Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1
> >>>
> >>>But he says that it is usual in economics to give codes such as
> >>>
> >>> `***' for 0.01, `**' for 0.05 and `*' for 0.10
> >>>
> >>>I don't know if this is true (common) or not, but what I as well
> >>>as he are puzzled is that, apparently, there is no part in 
> the code,
> >>>say that of summary.lm, which produces these significant codes
> >>>as well as the annotation above. A quick search of "rking" using
> >>>keywords "significant codes star" gave me no information.
> >>>
> >>>Thanks in advance.
> >>
> >>For example, calling summary(lmObject) dispatches on method
> >>summary.lm() 
> >>hwich creates an object of class "summary.lm".
> >>The latter is printed by method print.summary.lm() which calls 
> >>printCoefmat().
> >>
> >>The stars are hard-coded there, and I don't think anybody 
> is going to 
> >>change that. I suggest to turn of the printing of 
> siginificant codes by
> >>specifying
> >>   print(summary(.....), signif.stars = FALSE)
> >>or by setting the corresponding option().
> >>
> >>Uwe Ligges
> > 
> > 
> > It would be possible to re-define 'printCoefmat' privately
> > so as to change the lines
> > 
> >       cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
> >       symbols = c("***", "**", "*", ".", " "))
> > 
> > towards the end of its code into whatever you prefer, e.g.
> > 
> >       cutpoints = c(0, 0.01, 0.05, 0.1, 1),
> >       symbols = c("***", "**", "*", " "))
> > 
> > or
> > 
> >       cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
> >       symbols = c("****", "***", "**", "*", " "))
> > 
> > (both of which are compatible with your description of what
> > is needed).
> > 
> > The most straightforward way of redefining it is to copy
> > the code for 'printCoefmat' into a file, e.g.
> > 
> >   sink("printCoefmat.R")
> >   printCoefmat
> >   sink()
> > 
> > and then edit that file.
> > NOTE that the code written to the file does not include
> > the name of the function, i.e. it starts
> > 
> >   function (x, digits = max(3, getOption("digits") - 2),....
> > 
> > so the first modification has to be
> > 
> >   printCoefmat<-function(x, digits = .... )
> > 
> > Then, when you want your private version, simply do
> > 
> >   source("printCoefmat.R")
> > 
> > and it will overlay the original version. (Experts will have
> > to advise whether this clashes with any "namespace" issues.
> > On my reading of the code, it doesn't seem to; but I'm no
> > expert!)
> 
> Ted, it "clashes"! Functions in the namespace are looked up at first.
> 
> Uwe

As well, try to count the number of times people modified functions in base
without renaming, then asked if there's a bug when that was forgotten, or
when behavior of the function changed in newer version of R...

Andy


 
> > If your friend wants to use this new definition all the time,
> > then one way to arrange this is to put the revised function
> > definition (as in the edited file) into his .Rprofile,
> > or put the command
> >   source("printCoefmat")
> > into that file.
> > 
> > Best wishes,
> > Ted.
> > 
> > 
> > --------------------------------------------------------------------
> > E-Mail: (Ted Harding) <Ted.Harding at nessie.mcc.ac.uk>
> > Fax-to-email: +44 (0)870 094 0861  [NB: New number!]
> > Date: 20-Nov-04                                       Time: 19:13:23
> > ------------------------------ XFMail ------------------------------
> > 
> > ______________________________________________
> > R-help at stat.math.ethz.ch mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide! 
> http://www.R-project.org/posting-guide.html
> 
> 
> ______________________________________________
> R-help at stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! 
> http://www.R-project.org/posting-guide.html
> 
>