[Vegan-commits] r370 - in branches/1.13: R inst

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

Author: gsimpson
Date: 2008-05-24 11:16:23 +0200 (Sat, 24 May 2008)
New Revision: 370

Modified:
   branches/1.13/R/permutest.betadisper.R
   branches/1.13/inst/ChangeLog
Log:
merge r369 from trunk to 1.13 branch

Modified: branches/1.13/R/permutest.betadisper.R
===================================================================
--- branches/1.13/R/permutest.betadisper.R	2008-05-24 08:56:34 UTC (rev 369)
+++ branches/1.13/R/permutest.betadisper.R	2008-05-24 09:16:23 UTC (rev 370)
@@ -56,7 +56,7 @@
                 length(x$distance[x$group == z[2]]) - 2})
         pairwise <- list(observed = 2 * pt(-abs(t.stats[1,]), df),
                          permuted = apply(t.stats, 2,
-                         function(z) sum(abs(z) >= z[1])/length(z)))
+                         function(z) sum(abs(z) >= abs(z[1]))/length(z)))
         names(pairwise$observed) <- names(pairwise$permuted) <-
             apply(combin, 2, paste, collapse = "-")
     } else {

Modified: branches/1.13/inst/ChangeLog
===================================================================
--- branches/1.13/inst/ChangeLog	2008-05-24 08:56:34 UTC (rev 369)
+++ branches/1.13/inst/ChangeLog	2008-05-24 09:16:23 UTC (rev 370)
@@ -6,6 +6,9 @@
 
 	* merged r365: workaround to failure of weights.default in R 2.7.0
 	when object had no weights.
+
+	* merged r369: fixes bug in calculation of pair-wise permutation
+	p-values for some circumstances in 'permutest.betadisper'.
 	
 Version 1.13-0 (released May 21, 2008)