X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Frotate.R;h=2ea848082fedd8228da92fffb7ffbb217a6a8b44;hb=HEAD;hp=9a59d96262aac42439ff101f4ad1cd05a9034238;hpb=4ceef408de61dc86f0a93b0396aecc6e30cc0d70;p=ape.git

diff --git a/R/rotate.R b/R/rotate.R
index 9a59d96..2ea8480 100644
--- a/R/rotate.R
+++ b/R/rotate.R
@@ -1,5 +1,5 @@
 ### ROTATE
-### Last update CH on 09.08.2007
+### Last update CH on 09.08.2007 (updated by EP 2011-06-14)
 
 # Contents:
 # 1. rotate
@@ -119,7 +119,8 @@ else {
 			phy$edge.length <- c(phy$edge.length[c3:c4], phy$edge.length[(c2+1):(c3-1)], phy$edge.length[c1:c2])
 		}
 	}
-	S <- write.tree(phy)
-    phy <- if (!with.br.length) clado.build(S) else tree.build(S)
+        ## deleted by EP (2011-06-14):
+	## S <- write.tree(phy)
+        ## phy <- if (!with.br.length) clado.build(S) else tree.build(S)
 	phy
 	}