[Analogue-commits] r410 - pkg/R

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

Author: gsimpson
Date: 2014-02-14 23:58:40 +0100 (Fri, 14 Feb 2014)
New Revision: 410

Modified:
   pkg/R/pcr.R
Log:
ChiSquare function wasn't returning the list it generated

Modified: pkg/R/pcr.R
===================================================================
--- pkg/R/pcr.R	2014-02-14 22:52:27 UTC (rev 409)
+++ pkg/R/pcr.R	2014-02-14 22:58:40 UTC (rev 410)
@@ -164,7 +164,7 @@
         res <- list(data = sqrt(gsum) * x/outer(rsum, sqrt(csum)),
                     parms = list(gsum = gsum, rsum = rsum, csum = csum))
     }
-    x
+    res ##return
 }
 
 `print.pcr` <- function(x, digits = min(getOption("digits"), 4), ...) {