/working/auteur/R/updatevcv.R
R | 11 lines | 7 code | 2 blank | 2 comment | 0 complexity | 148c6ef67e6fd6b3949a03c0e8d057eb MD5 | raw file
1#scales VCV matrix of phylogeny by relative evolutionary rates under Brownian motion 2#author: JM EASTMAN 2010 3 4updatevcv <- 5function(ape.tre, new.rates) { 6 n=ape.tre 7 n$edge.length=n$edge.length*new.rates 8 vv=vmat(n) 9 return(vv) 10} 11