example(NJ)
fit = pml(tree, Laurasiatherian)
anc.ml = ancestral.pml(fit, type = "ml")
anc.p = ancestral.pars(tree, Laurasiatherian)
## Not run:
# require(seqLogo)
# seqLogo( t(subset(anc.ml, 48, 1:20)[[1]]), ic.scale=FALSE)
# seqLogo( t(subset(anc.p, 48, 1:20)[[1]]), ic.scale=FALSE)
# ## End(Not run)
plotAnc(tree, anc.ml, 1)
Run the code above in your browser using DataLab