data(agamids)
agbtimes <- getBtimes(string = agamids)
#agbtimes is now a vector of branching times from the agamid phylogeny
#here we fit 2 rate-constant and 3 rate-variable models
# to the agamid data:
result <- fitdAICrc(agbtimes, modelset = c("pureBirth", "bd",
"DDX", "DDL", "yule2rate"), ints = 100)
# this outputs summaries of parameters and likelihoods to screen;
# object 'result' is a dataframe containing all parameter estimates,
# likelihoods, and AIC scores
Run the code above in your browser using DataLab