[Rd] R-1.9.0 Beta print.power.htest problem?

Prof Brian Ripley
2004-03-31T20:53:32Z

Yes, thank you, that's it.  Fix committed.

On Wed, 31 Mar 2004, Marc Schwartz wrote:

> Hi all,
>
> I just used power.t.test() in Version 1.9.0 beta (2004-03-31) today
> under FC1.
>
> The following is the output:
>
> > power.t.test(delta = .5, power = .95, type = "paired")
> $n
> [1] 53.94062
>
> $delta
> [1] 0.5
>
> $sd
> [1] 1
>
> $sig.level
> [1] 0.05
>
> $power
> [1] 0.95
>
> $alternative
> [1] "two.sided"
>
> $note
> [1] "n is number of *pairs*, sd is std.dev. of *differences* within
> pairs"
>
> $method
> [1] "Paired t test power calculation"
>
> attr(,"class")
> [1] "power.htest"
>
>
>
> The following is the output from Version 1.8.1 Patched (2004-03-31):
>
> >  power.t.test(delta = .5, power = .95, type = "paired")
>
>      Paired t test power calculation
>
>               n = 53.94062
>           delta = 0.5
>              sd = 1
>       sig.level = 0.05
>           power = 0.95
>     alternative = two.sided
>
>  NOTE: n is number of *pairs*, sd is std.dev. of *differences* within
> pairs
>
>
>
> I have reviewed the following code for print.power.htest in power.R in
> both 1.8.1 patched and the 1.9.0 Beta and do not see any differences, so
> I am guessing that there is a methods issue here:
>
> print.power.htest <-
> function(x, ...)
> {
>     cat("\n    ", x$method, "\n\n")
>     note<-x$note
>     x[c("method","note")] <- NULL
>     cat(paste(format.char(names(x), width=15, flag="+"),
>               format(x), sep=" = "),sep="\n")
>     if(!is.null(note))
>         cat("\n", "NOTE:", note, "\n\n")
>     else
>         cat("\n")
> }
>
>
> Using 'methods(print)' in 1.8.1 patched, print.power.htest is
listed,
> while it is not listed in 1.9.0 beta, which would seem to reinforce a
> methods problem.
>
> The 1.8.1 patched NAMESPACE file for 'ctest' lists:
>
> S3method(print, power.htest)
>
> However, the NAMESPACE file for 'stats' in 1.9.0 Beta does not, so
I am
> guessing that this is the source of the problem?
>
> Thanks,
>
> Marc Schwartz
>
> ______________________________________________
> R-devel@stat.math.ethz.ch mailing list
> https://www.stat.math.ethz.ch/mailman/listinfo/r-devel
>
>

--
Brian D. Ripley,                  ripley@stats.ox.ac.uk
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