# NOT RUN {
data(Laurasiatherian)
set.seed(1)
bs <- bootstrap.phyDat(Laurasiatherian, FUN = function(x)upgma(dist.hamming(x)), bs=50)
mrp_st <- superTree(bs, rooted=TRUE)
plot(superTree(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