library(iL04)
library(ape)

data(PA)

# one of:  nj  bionj  fastme.bal  fastme.ols
t <- nj(PA) 

# for help, see: ?plot.phylo
plot(t, type="unrooted", no.margin=TRUE, lab4ut="azial")