#Loading example trees
newick1 <- "(((A:1,B:1):3,(C:3,D:3):1):2,E:6);"
tree1 <- read.tree(text=newick1)
newick2 <- "((X:1.5,Y:1.5):3,Z:4.5);"
tree2 <- read.tree(text=newick2)
#Creating the model
modelGMM <- createModelCoevolution(tree1, tree2)
#Printing basic or full informations on the model definitions
show(modelGMM)
print(modelGMM)
#Simulates tip trait data
dataGMM <- simulateTipData(modelGMM, c(0,0,5,-5, 1, 1), method=2)
Run the code above in your browser using DataLab