example(NJ)
(mT <- modelTest(Laurasiatherian, tree))
# some R magic
env = attr(mT, "env")
ls(env=env)
(F81 <- get("F81+G", env)) # a call
eval(F81, env=env)
data(chloroplast)
(mTAA <- modelTest(chloroplast, model=c("JTT", "WAG", "LG")))
Run the code above in your browser using DataLab