tre1 = rtree(500)
tre2 = transf.branch.lengths(phy=tre1, model="OUrandomRoot",
parameters = list(alpha = 0.5))
x1 = rTrait(tre1)
x2 = rTrait(tre1)
y = rTrait(tre1)
one = rep(1,50)
P = cbind(one,y)
Q = cbind(x1,x2)
three.point.compute(tre2$tree,P,Q,tre2$diagMatrix)
Run the code above in your browser using DataLab