## single curve with plot
m1 <- pcrfit(reps, 1, 2, l5)
Cy0(m1, plot = TRUE)
## add to 'efficiency' plot
efficiency(m1)
Cy0(m1, add = TRUE)
## compare s.d. of replicates between
## Cy0 and cpD2 method. cpD2 wins!
ml1 <- modlist(reps, model = l4)
cy0 <- sapply(ml1, function(x) Cy0(x))
cpd2 <- sapply(ml1, function(x) efficiency(x, plot = FALSE)$cpD2)
tapply(cy0, gl(7, 4), function(x) sd(x))
tapply(cpd2, gl(7, 4), function(x) sd(x))
Run the code above in your browser using DataLab