I'm getting a kick out of my new function
extract a phylogeny from an image of a plotted tree. Consequently,
I couldn't resist posting another
demo. This one is based on
1 of Song et al.
If you'd like to try it yourself, just copy & past the following lines & click away:
library(phytools) library(jpeg) source("https://raw.githubusercontent.com/liamrevell/phytools/master/R/tree.drawer.R") download.file("http://www.pnas.org/content/109/37/14942/F1.large.jpg", "F1.large.jpg",mode="wb") eutheria<-tree.drawer("F1.large.jpg")
The video also demonstrates the option
GOBACK to remove
the most recently added leaf from the tree & go back.
The result is as follows:
The video demo can also be seen embedded below: