### ROTATE
-### Last update CH on 09.08.2007
+### Last update CH on 09.08.2007 (updated by EP 2011-06-14)
# Contents:
# 1. rotate
}
# function starts here
# definitions
- if (class(phy) != "phylo") # is phy of class phylo?
+ if (!inherits(phy, "phylo")) # is phy of class phylo?
stop("object \"phy\" is not of class \"phylo\"")
nb.tips <- length(phy$tip.label) # number of tiplabels
max.int.node <- phy$Nnode+nb.tips # number of last internal node
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
}