[Vegan-commits] r676 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2009-01-28 17:04:13 +0100 (Wed, 28 Jan 2009)
New Revision: 676

Modified:
   pkg/vegan/R/commsimulator.R
   pkg/vegan/inst/ChangeLog
Log:
commsimulator failed if input data (x) were a data.frame

Modified: pkg/vegan/R/commsimulator.R
===================================================================
--- pkg/vegan/R/commsimulator.R	2009-01-27 12:00:40 UTC (rev 675)
+++ pkg/vegan/R/commsimulator.R	2009-01-28 16:04:13 UTC (rev 676)
@@ -8,7 +8,6 @@
         x <- ifelse(x > 0, 1, 0)
     nr <- nrow(x)
     nc <- ncol(x)
-    at <- attributes(x)
     if (method %in% c("r0", "r1", "r2")) {
         rs <- rowSums(x)
         if (method == "r0")
@@ -95,6 +94,7 @@
                 out <- oldout
         }
     }
-    attributes(out) <- at
+    colnames(out) <- colnames(x)
+    rownames(out) <- rownames(x)
     out
 }

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2009-01-27 12:00:40 UTC (rev 675)
+++ pkg/vegan/inst/ChangeLog	2009-01-28 16:04:13 UTC (rev 676)
@@ -4,6 +4,8 @@
 
 Version 1.6-10 (openen Jan 20, 2009)
 
+	* commsimulator: failed if input data (x) were a data.frame.
+
 	* metaMDS: really do not evaluate no.shared() if set
 	noshare=0. Triggered by a problem report with missing data.