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

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

Author: jarioksa
Date: 2009-08-22 14:11:22 +0200 (Sat, 22 Aug 2009)
New Revision: 939

Modified:
   pkg/vegan/R/summary.ordihull.R
Log:
commit the latest version of summary.ordihull

Modified: pkg/vegan/R/summary.ordihull.R
===================================================================
--- pkg/vegan/R/summary.ordihull.R	2009-08-22 12:09:47 UTC (rev 938)
+++ pkg/vegan/R/summary.ordihull.R	2009-08-22 12:11:22 UTC (rev 939)
@@ -20,7 +20,6 @@
         structure(c(xc, yc), names = colnames(x))
     }
     areas <- sapply(object, function(x) polyarea(x))
-    cnts <- sapply(object, function(x) colMeans(x[-1,]))
-    altcnts <- sapply(object, function(x) polycentre(x))
-    rbind(cnts, altcnts, `Area` = areas)
+    cnts <- sapply(object, function(x) polycentre(x))
+    rbind(cnts, `Area` = areas)
 }