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

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

Author: gsimpson
Date: 2011-11-12 18:54:25 +0100 (Sat, 12 Nov 2011)
New Revision: 1991

Modified:
   pkg/vegan/R/adonis.R
Log:
fix a bug in speed-up in adonis in the transposing of H.s

Modified: pkg/vegan/R/adonis.R
===================================================================
--- pkg/vegan/R/adonis.R	2011-11-12 11:21:12 UTC (rev 1990)
+++ pkg/vegan/R/adonis.R	2011-11-12 17:54:25 UTC (rev 1991)
@@ -104,7 +104,7 @@
         permutations <- ncol(p)
     }
 
-    tH.s <- sapply(H.s, t)
+    tH.s <- lapply(H.s, t)
     tIH.snterm <- t(I-H.snterm)
     ## Apply permutations for each term
     ## This is the new f.test (2011-06-15) that uses fewer arguments