[Phylobase-commits] r674 - pkg/R

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

Author: regetz
Date: 2009-09-29 07:56:27 +0200 (Tue, 29 Sep 2009)
New Revision: 674

Modified:
   pkg/R/prune.R
Log:
tweaked prune to keep edge matrix as integer


Modified: pkg/R/prune.R
===================================================================
--- pkg/R/prune.R	2009-09-29 05:52:39 UTC (rev 673)
+++ pkg/R/prune.R	2009-09-29 05:56:27 UTC (rev 674)
@@ -93,7 +93,7 @@
     }
 
     ## renumber nodes in the edge matrix
-    edge.new[] <- match(edge.new, sort(unique.default(edge.new))) - 1
+    edge.new[] <- match(edge.new, sort(unique.default(edge.new))) - 1L
 
     ## update corresponding element names in the other slots
     edge.names <- makeEdgeNames(edge.new)