PageRenderTime 33ms CodeModel.GetById 31ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

/working/auteur/R/updatevcv.R

http://github.com/eastman/auteur
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