## effect of decreasing mix
## on PCR efficiency
data(guescini2)
ml <- modlist(guescini2, model = l4)
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