R devel - May 2003 - power.t.test needs to check delta==NULL before abs(delta) (PR#3139)

Something like the following should be done for power.t.test to make
sure that it doesn't try to evaluate abs(NULL), which results in an
error.

--- rossini.power.t.test.R      2003-05-30 07:24:49.000000000 -0700
+++ rossini.power.t.test.R.~1~  2003-05-30 08:47:09.000000000 -0700
@@ -10,7 +10,7 @@
   alternative <- match.arg(alternative)
   tsample <- switch(type, one.sample = 1, two.sample = 2, paired = 1)
   tside <- switch(alternative, one.sided = 1, two.sided = 2)
-  if (tside == 2 && !is.null(delta))
+  if (tside == 2)
     delta <- abs(delta)
   p.body <- quote({
     nu <- (n - 1) * tsample


--please do not edit the information below--

Version:
 platform = powerpc-unknown-linux-gnu
 arch = powerpc
 os = linux-gnu
 system = powerpc, linux-gnu
 status = Patched
 major = 1
 minor = 7.0
 year = 2003
 month = 05
 day = 25
 language = R

Search Path:
 .GlobalEnv, package:methods, package:ctest, package:mva, package:modreg,
package:nls, package:ts, Autoloads, package:base

It's the same as PR#2993, fixed yesterday in R-patched & R-devel

On Fri, 30 May 2003 rossini@blindglobe.net wrote:
> 
> Something like the following should be done for power.t.test to make
> sure that it doesn't try to evaluate abs(NULL), which results in an
> error.
That's a backwards patch, I presume, or you revert the fix.
> --- rossini.power.t.test.R      2003-05-30 07:24:49.000000000 -0700
> +++ rossini.power.t.test.R.~1~  2003-05-30 08:47:09.000000000 -0700
> @@ -10,7 +10,7 @@
>    alternative <- match.arg(alternative)
>    tsample <- switch(type, one.sample = 1, two.sample = 2, paired = 1)
>    tside <- switch(alternative, one.sided = 1, two.sided = 2)
> -  if (tside == 2 && !is.null(delta))
> +  if (tside == 2)
>      delta <- abs(delta)
>    p.body <- quote({
>      nu <- (n - 1) * tsample
> 
> 
> --please do not edit the information below--
> 
> Version:
>  platform = powerpc-unknown-linux-gnu
>  arch = powerpc
>  os = linux-gnu
>  system = powerpc, linux-gnu
>  status = Patched
>  major = 1
>  minor = 7.0
>  year = 2003
>  month = 05
>  day = 25
>  language = R
> 
> Search Path:
>  .GlobalEnv, package:methods, package:ctest, package:mva, package:modreg,
package:nls, package:ts, Autoloads, package:base
> 
> ______________________________________________
> 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