# coefficient of variation of final numbers
Wcvfn <- werhoff$cvfn
# tenth sample
W10 <- werhoff$samples[[10]]
# estimates without cvfn
without <- mutestim(W10$mc,mfn=W10$mfn)
# estimates with cvfn
with <- mutestim(W10$mc,mfn=W10$mfn,cvfn=Wcvfn)
rbind(without,with)
Run the code above in your browser using DataLab