# NOT RUN {
# load the data
data(mammalia)
# safe the current settings of the plotting device
op <- par()
# set the line width for drawing thinner lines for the branches
par(cex = 0.3)
# plot the mammalian phylogeny
plot(mammalia)
# restore the settings of the device
par(op)
# }
Run the code above in your browser using DataCamp Workspace