new option 'draw' in plot.phylo()

[ape.git] / man / rotate.Rd

diff --git a/man/rotate.Rd b/man/rotate.Rd
index 13fed062b35f910525cdcc33204ed76f3b32d7c4..a901bf827bc1ad7cd81c53ddb969cba93643289d 100644 (file)
--- 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
 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,7 +51,6 @@ tiplabels()
 tre.new <- rotate(tre, c(12, 21))
 
 # 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
@@ -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