data(geospiza)
attach(geospiza)
ape2ouch(geospiza.tree, geospiza.data[,1], rownames(geospiza.data))->geospiza.ouch
#Interface with ouch package
library(ouch)
brown.fit(geospiza.ouch$d, geospiza.ouch$node, geospiza.ouch$ancestor, geospiza.ouch$time)
Run the code above in your browser using DataLab