Nothing
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]
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.