[Vegan-commits] r826 - pkg/vegan/R

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

Author: psolymos
Date: 2009-05-15 23:56:21 +0200 (Fri, 15 May 2009)
New Revision: 826

Modified:
   pkg/vegan/R/multipart.R
Log:
unnecessary internal function deleted

Modified: pkg/vegan/R/multipart.R
===================================================================
--- pkg/vegan/R/multipart.R	2009-05-15 21:54:58 UTC (rev 825)
+++ pkg/vegan/R/multipart.R	2009-05-15 21:56:21 UTC (rev 826)
@@ -60,9 +60,6 @@
     ## cluster membership determination
     nrhs <- rhs
     nrhs <- sapply(nrhs, as.numeric)
-    idcluster <- function(h,l) {
-        sapply(unique(l), function(i) h[l==i][1])
-    }
     idcl <- function(i) {
         h <- nrhs[,i]
         l <- nrhs[,(i-1)]