### An extract from Sibley and Ahlquist (1990)
cat("(((Strix aluco:4.2,Asio otus:4.2):3.1,",
"Athene noctua:7.3):6.3,Tyto alba:13.5);",
file = "ex.tre", sep = "")
tree.owls <- read.tree("ex.tre")
plot(tree.owls)
unlink("ex.tre") # delete the file "ex.tre"
Run the code above in your browser using DataCamp Workspace