R/generate.sequences.R

In epineticseq: EpiNeticSeq

simulate.sequences <-
  function(phylo.tree,
           relative.rates=c(.5,.5,.5,.5,.5,.5),
           root.seq){
  r <- relative.rates
  a.g <- g.a <- r[1]
  c.t <- c.t <- r[2]
  a.c <- c.a <- r[3]
  a.t <- t.a <- r[4]
  c.g <- g.c <- r[5]
  g.t <- t.g <- r[6]
  
  
}