## Fitting initial model
m1 <- pcrfit(reps, 1, 2, l4())
efficiency(m1)
## of best model
#uses type="cpD2"
m2 <- mchoice(m1)
efficiency(m2)
## using "maxE" method, with calculation of PCR efficiency
## one cycle 'upstream' of the cycle of maximum efficiency
efficiency(m2, type = "maxE", shift = 1)
##using the exponential region
efficiency(m2, type = "expR")
## using threshold value (15.32) from PCR software
efficiency(m2, type = 15.32)
## using the first 30 cycles and a template amount
## (optical calibration)
m3 <- pcrfit(reps[1:30, ], 1, 2, l5())
efficiency(m3, amount = 1E3)
Run the code above in your browser using DataLab