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

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

Author: jarioksa
Date: 2009-01-20 10:20:18 +0100 (Tue, 20 Jan 2009)
New Revision: 668

Modified:
   pkg/vegan/R/kendall.post.R
Log:
kendall.post: fixed rev 665

Modified: pkg/vegan/R/kendall.post.R
===================================================================
--- pkg/vegan/R/kendall.post.R	2009-01-18 14:29:54 UTC (rev 667)
+++ pkg/vegan/R/kendall.post.R	2009-01-20 09:20:18 UTC (rev 668)
@@ -125,7 +125,8 @@
             table[[i]] <- rbind(spear.gr[[i]], W.gr[[i]], counter[[i]], vec.gr[[i]])
             rownames(table[[i]]) <- c("Spearman.mean", "W.per.species", "Prob", "Corrected prob")
             ## PL: Next line had been lost
-            colnames(table) <- colnames(table,do.NULL = FALSE, prefix = "Spec")
+            colnames(table[[i]]) <- colnames(table[[i]], do.NULL = FALSE,
+                                             prefix = "Spec")
         }
     }
     if(ngr == 1) {