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