if (FALSE) {
## load tree and data
data(eel.tree)
data(eel.data)
## extract trait of interval
maxTL<-setNames(eel.data$Max_TL_cm,
rownames(eel.data))
## fit bounded model
eel_bounded<-bounded_bm(eel.tree,maxTL,levs=200,
parallel=TRUE,lims=range(maxTL))
## fit unbounded model
eel_unbounded<-bounded_bm(eel.tree,maxTL,levs=200,
parallel=TRUE)
## compare models using AIC
AIC(eel_bounded,eel_unbounded)}
Run the code above in your browser using DataLab