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

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

Author: jarioksa
Date: 2012-02-19 20:19:59 +0100 (Sun, 19 Feb 2012)
New Revision: 2098

Modified:
   pkg/vegan/R/simper.R
Log:
merge github fix for summary.simper

Modified: pkg/vegan/R/simper.R
===================================================================
--- pkg/vegan/R/simper.R	2012-02-19 17:50:08 UTC (rev 2097)
+++ pkg/vegan/R/simper.R	2012-02-19 19:19:59 UTC (rev 2098)
@@ -105,7 +105,7 @@
         } 
     } 
     else {
-        out <- lapply(object, function(z) data.frame(contr = z$average, sd = z$sd, 'contr/sd' = z$ratio, av.a = z$ava, av.b = z$avb, p = z$p))
+        out <- lapply(object, function(z) data.frame(cbind(contr = z$average, sd = z$sd, 'contr/sd' = z$ratio, av.a = z$ava, av.b = z$avb, p = z$p)))
     }
     attr(out, "digits") <- digits
     attr(out, "permutations") <- attr(object, "permutations")