X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2Fcollapse.singles.R;h=bbde0a17e003ce464a68dab76afa7d4aa412b416;hp=9762bb0538c4f91cb8fad224a9df0701d7869695;hb=f295ab19440298e543db5a270e54f10a84382197;hpb=188a8123d039d442dacb35ae678729375e22d239

diff --git a/R/collapse.singles.R b/R/collapse.singles.R
index 9762bb0..bbde0a1 100644
--- a/R/collapse.singles.R
+++ b/R/collapse.singles.R
@@ -1,4 +1,4 @@
-## collapse.singles.R (2008-06-19)
+## collapse.singles.R (2010-07-23)
 
 ##    Collapse "Single" Nodes
 
@@ -32,7 +32,7 @@ collapse.singles <- function(tree)
             xmat <- xmat[xmat[, 1] != i, ] # drop
             ## changed by EP for the new coding of "phylo" (2006-10-05):
             ## xmat[xmat < i] <- xmat[xmat < i] + 1 ## adjust indices
-            xmat[xmat > i] <- xmat[xmat > i] - 1 ## adjust indices
+            xmat[xmat > i] <- xmat[xmat > i] - 1L ## adjust indices # changed '1' by '1L' (2010-07-23)
             ## END
             elen[prev.node] <- elen[prev.node] + elen[next.node]
             ## added by Elizabeth Purdom (2008-06-19):