[Earthmovdist-commits] r28 - pkg/R

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

Author: edd
Date: 2010-10-14 19:07:40 +0200 (Thu, 14 Oct 2010)
New Revision: 28

Modified:
   pkg/R/emdL1.R
Log:
we no longer return a list, so let's just work with the scalar


Modified: pkg/R/emdL1.R
===================================================================
--- pkg/R/emdL1.R	2010-10-14 17:07:13 UTC (rev 27)
+++ pkg/R/emdL1.R	2010-10-14 17:07:40 UTC (rev 28)
@@ -54,8 +54,6 @@
                     )
   }
 
-  val <- .Call("emdL1", as.vector(x), as.vector(y), parms, PACKAGE="earthmovdist")
-  d <- val[["dist"]]
-
+  d <- .Call("emdL1", as.vector(x), as.vector(y), parms, PACKAGE="earthmovdist")
   return(d)
 }