The phytools function
plot.cophylo will no plot an object
"cophylo" containing trees without edge lengths
(upon user request).
Here's what I mean:
Now try it….
library(phytools) t1<-rtree(n=26,tip.label=LETTERS,br=NULL) t2<-rtree(n=26,tip.label=LETTERS,br=NULL) obj<-cophylo(t1,t2)
## Rotating nodes to optimize matching... ## Done.
This was super easy. I just plugged the line:
into the internally used plotting function,
that was all there was too it.