[Phylobase-commits] r758 - pkg/R

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

Author: francois
Date: 2010-03-15 23:30:27 +0100 (Mon, 15 Mar 2010)
New Revision: 758

Modified:
   pkg/R/readNexus.R
Log:
fix bug, in case of multiple datasets, first one was duplicated

Modified: pkg/R/readNexus.R
===================================================================
--- pkg/R/readNexus.R	2010-03-13 00:02:33 UTC (rev 757)
+++ pkg/R/readNexus.R	2010-03-15 22:30:27 UTC (rev 758)
@@ -86,7 +86,7 @@
             }
             finalTipdata <- tipdata[[1]]
             if (length(tipdata) > 1) {
-                for(td in tipdata) {
+                for(td in tipdata[-1]) {
                     finalTipdata <- cbind(finalTipdata, td)
                 }
             }