### effect of decreasing mix
### on PCR efficiency
data(guescini2)
ml <- modlist(guescini2, fct = l5())
effs <- sapply(ml, function(x) efficiency(x, plot = FALSE)$eff)
### mean for the replicates
tapply(effs, gl(5, 12), function(x) mean(x, na.rm = TRUE))
Run the code above in your browser using DataLab