[Analogue-commits] r155 - pkg/R

[noreply at r-forge.r-project.org]

Author: gsimpson
Date: 2010-01-16 14:50:40 +0100 (Sat, 16 Jan 2010)
New Revision: 155

Modified:
   pkg/R/tran.R
Log:
rootroot transformation was same as cuberoot from r140

Modified: pkg/R/tran.R
===================================================================
--- pkg/R/tran.R	2009-11-03 20:46:19 UTC (rev 154)
+++ pkg/R/tran.R	2010-01-16 13:50:40 UTC (rev 155)
@@ -24,7 +24,7 @@
         x <- switch(method,
                     sqrt = sqrt(x),
                     cubert = sign(x) * exp(log(abs(x)) / 3), #x^(1/3),
-                    rootroot = sign(x) * exp(log(abs(x)) / 3), #x^(1/4),
+                    rootroot = sign(x) * exp(log(abs(x)) / 4), #x^(1/4),
                     log = {x <- sweep(x, 2, a, "*")
                            x <- sweep(x, 2, b, "+")
                            log(x, base = base)} ,