# \donttest{
data(Anolis.data)
phylo<-Anolis.data$phylo
geo.object<-Anolis.data$geography.object
#simulate with the OU process present and absent
pars<-expand.grid(0.05,2,1,0,c(2,0),0)
sim.divergence.geo(phylo,pars,Nsegments=2500, plot=FALSE, geo.object)
# }
Run the code above in your browser using DataLab