## a geiger example
require(geiger) # just to load the data
data(geospiza)
attach(geospiza)
lambdaFit<-pmc_fit(geospiza.tree, geospiza.data, model="lambda")
## Or a single trait at a time:
lambdaFit<-pmc_fit(geospiza.tree, geospiza.data[1], model="lambda")
## an ouch example
require(ouch) # just for the data,
data(bimac)
tree <- with(bimac,ouchtree(node,ancestor,time/max(time),species))
ou.3 <- pmc_fit(data=log(bimac['size']),tree, model="hansen",
list(regimes=bimac['OU.3'],sqrt.alpha=1,sigma=1))
Run the code above in your browser using DataLab