#Loading an example tree
newick <- "((((A:1,B:0.5):2,(C:3,D:2.5):1):6,E:10.25):2,(F:6.5,G:8.25):3):1;"
tree <- read.tree(text=newick)
#Creating the models
modelBM <- createModel(tree, 'BM')
#Simulating tip traits under the model :
dataBM <- simulateTipData(modelBM, c(0,0,0,1))
#Fitting the model to the data
fitTipData(modelBM, dataBM, v=TRUE)
Run the code above in your browser using DataLab