## Not run:
# 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")))
#
# # test all available amino acid models
# (mTAA_all <- modelTest(chloroplast, model="all", multicore=TRUE, mc.cores=2))
# ## End(Not run)
Run the code above in your browser using DataLab