[Vegan-commits] r368 - pkg/R

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

Author: jarioksa
Date: 2008-05-23 08:20:19 +0200 (Fri, 23 May 2008)
New Revision: 368

Modified:
   pkg/R/taxa2dist.R
Log:
taxa2dist got a method name

Modified: pkg/R/taxa2dist.R
===================================================================
--- pkg/R/taxa2dist.R	2008-05-22 08:38:53 UTC (rev 367)
+++ pkg/R/taxa2dist.R	2008-05-23 06:20:19 UTC (rev 368)
@@ -28,6 +28,7 @@
         out <- out + add[i + 1] * outer(x[, i], x[, i], "!=")
     }
     out <- as.dist(out)
+    attr(out, "method") <- "taxa2dist"
     attr(out, "steps") <- add
     if (missing(labels)) {
         attr(out, "Labels") <- rownames(x)