### single curve with plot
m <- pcrfit(reps, 1, 2, l5())
Cy0(m, plot = TRUE)
### add to 'efficiency' plot
efficiency(m)
Cy0(m, add = TRUE)
### compare Cy0's with cpD2's
ml <- modlist(reps, fct = l5())
sapply(ml, function(x) Cy0(x))
sapply(ml, function(x) efficiency(x, plot = FALSE)$cpD2)
Run the code above in your browser using DataLab