library("admtools") # required for plotting of results
t = seq(0, 1, by = 0.01)
l = stasis(t)
plot(l, type = "l") # plot lineage
l2 = stasis(t, mean = 0.5, sd = 0.3) # simulate second lineage
lines(l2$t, l2$y, col = "red") # plot second lineage
Run the code above in your browser using DataLab