[Analogue-commits] r374 - pkg/R

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

Author: gsimpson
Date: 2013-10-07 02:17:24 +0200 (Mon, 07 Oct 2013)
New Revision: 374

Modified:
   pkg/R/new-distance.R
Log:
fix a minor typo in code applied to Kendall Dij in the x and y case

Modified: pkg/R/new-distance.R
===================================================================
--- pkg/R/new-distance.R	2013-10-07 00:16:29 UTC (rev 373)
+++ pkg/R/new-distance.R	2013-10-07 00:17:24 UTC (rev 374)
@@ -220,7 +220,7 @@
         }
         if(DCOEF == 11L) { ## "kendall"
             x <- data.matrix(x)
-            x <- data.matrix(y)
+            y <- data.matrix(y)
             XY <- rbind(x, y)
             maxi <- apply(XY, 2, max)
             d <- .C("xy_kendall", x = as.double(x), y = as.double(y),