Computes -log( likelihood ) of tip trait data under a given set of parameters, and for a specified model of trait evolution.
getDataLikelihood(object, data, params, v)
an object of class 'PhenotypicModel'.
vector of tip trait data.
vector of parameters, given in the same order as in the 'model' object.
boolean specifying the verbose mode. Default value : FALSE.
A numerical value : -log( likelihood ) of the model.
Manceau M., Lambert A., Morlon H. (2017) A unifying comparative phylogenetic framework including traits coevolving across interacting lineages Systematic Biology
# NOT RUN {
#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))
#Likelihood of the data :
getDataLikelihood(modelBM, dataBM, c(0,0,0,1))
# }
Run the code above in your browser using DataLab