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

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

Author: jarioksa
Date: 2009-03-25 20:48:05 +0100 (Wed, 25 Mar 2009)
New Revision: 759

Modified:
   pkg/vegan/R/mrpp.R
Log:
take care that classes have names in mrpp

Modified: pkg/vegan/R/mrpp.R
===================================================================
--- pkg/vegan/R/mrpp.R	2009-03-25 10:00:33 UTC (rev 758)
+++ pkg/vegan/R/mrpp.R	2009-03-25 19:48:05 UTC (rev 759)
@@ -22,6 +22,7 @@
     dmat <- as.matrix(dmat)
     diag(dmat) <- NA
     N <- nrow(dmat)
+    grouping <- as.factor(grouping)
     ind <- as.numeric(grouping)
     indls <- unique(ind)
     ncl <- sapply(indls, function(x) sum(ind == x))