/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. 

  2. #author: JM EASTMAN 2010
    3. 

  3. 

  4. updatevcv <-
    5. 

  5. function(ape.tre, new.rates) {
    6. 

  6. 	n=ape.tre
    7. 

  7. 	n$edge.length=n$edge.length*new.rates
    8. 

  8. 	vv=vmat(n)
    9. 

  9. 	return(vv)
    10. 

  10. }
    11.