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)
if (FALSE) {
rf_st <- superTree(bs, method = "RF")
spr_st <- superTree(bs, method = "SPR")
}
Run the code above in your browser using DataLab