[Seqinr-commits] r1815 - pkg/R

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

Author: simonpenel
Date: 2014-10-10 14:35:58 +0200 (Fri, 10 Oct 2014)
New Revision: 1815

Modified:
   pkg/R/consensus.R
Log:
adding "row.names(matali)<-NULL "  due to the change

      \item \code{apply(m, 2, identity)} is now the same as the matrix
      \code{m} when it has \emph{named} row names.



Modified: pkg/R/consensus.R
===================================================================
--- pkg/R/consensus.R	2014-06-11 13:49:22 UTC (rev 1814)
+++ pkg/R/consensus.R	2014-10-10 12:35:58 UTC (rev 1815)
@@ -24,6 +24,7 @@
   if(method == "profile"){
     obsvalue <- levels(factor(matali))
     nrow <- length(obsvalue)
+    row.names(matali)<-NULL
     res <- apply(matali, 2, function(x) table(factor(x, levels = obsvalue)))
     return(res)
   }