X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=man%2Frotate.Rd;h=f6ad0fe658a30e4b049d5e4234cc624aa6bed238;hb=b9e04a6e6af3beda74b916eda00b42ac38875563;hp=13fed062b35f910525cdcc33204ed76f3b32d7c4;hpb=58c10f2bc11baf46563dc5541181bb97d0956ecb;p=ape.git

diff --git a/man/rotate.Rd b/man/rotate.Rd
index 13fed06..f6ad0fe 100644
--- a/man/rotate.Rd
+++ b/man/rotate.Rd
@@ -1,6 +1,6 @@
 \name{rotate}
 \alias{rotate}
-\title{Swopping sister clades}
+\title{Swapping sister clades}
 \description{
 For a given node, rotate exchanges the position of two clades descending from this node. It can handle dichotomies as well as polytomies. In the latter case, two clades from the polytomy are selected for swapping.}
 \usage{
@@ -39,13 +39,11 @@ nodelabels()
 tre.new <- rotate(tre, 30)
 
 # compare the results:
-X11() # open new graphical device
-par(mfrow=c(1,2)) # devide graphical device
+par(mfrow=c(1,2)) # split graphical device
 plot(tre) # plot old tre
 plot(tre.new) # plot new tree
 
 # visualize labels of terminal nodes:
-X11() # open new graphical device
 plot.phylo(tre)
 tiplabels()
 
@@ -53,8 +51,7 @@ tiplabels()
 tre.new <- rotate(tre, c(12, 21))
 
 # compare the results:
-X11() # open new graphical device
-par(mfrow=c(1,2)) # devide graphical device
+par(mfrow=c(1,2)) # split graphical device
 plot(tre) # plot old tre
 plot(tre.new) # plot new tree
 
@@ -62,7 +59,6 @@ plot(tre.new) # plot new tree
 tre.new <- rotate(tre, c("t3", "t14"))
 
 # compare the results:
-X11() # open new graphical device
 par(mfrow=c(1,2)) # devide graphical device
 plot(tre) # plot old tre
 plot(tre.new) # plot new tree