powered by
vcv2phylo(mat, tolerance = 1e-7)
"phylo"
vcv
corPhyl
tr <- rtree(10) V <- vcv(tr) # VCV matrix assuming Brownian motion z <- vcv2phylo(V) identical(tr, z) # FALSE all.equal(tr, z) # TRUE
Run the code above in your browser using DataLab