# NOT RUN {
## load data
data(fakeOutbreak)
attach(fakeOutbreak)
mu <- get.mu(res, genome.size=ncol(dat$dna))
hist(mu, col="grey",
main="Inferred distribution of mu",
xlab="mutations/site/day")
abline(v=1e-4,lty=2, lwd=4, col="royalblue")
mtext(side=3, "Dashed line = actual value")
detach(fakeOutbreak)
# }
Run the code above in your browser using DataLab