data(Laurasiatherian)
set.seed(1)
bs <- bootstrap.phyDat(Laurasiatherian,
FUN = function(x) upgma(dist.hamming(x)), bs=50)
mrp_st <- superTree(bs, minit = 25, maxit=50)
plot(mrp_st)
# \donttest{
rf_st <- superTree(bs, method = "RF")
spr_st <- superTree(bs, method = "SPR")
# }
Run the code above in your browser using DataLab