## Define calibration curves,
## dilutions (or copy numbers)
## and curves to be predicted.
## Do background subtraction using
## average of first 8 cycles
CAL <- modlist(reps, fluo = c(2, 6, 10, 14, 18, 22), baseline = 1:8)
COPIES <- c(100000, 10000, 1000, 100, 10, 1)
PRED <- modlist(reps, fluo = c(3, 7, 11), baseline = 1:8)
## conduct normal quantification using
## the second derivative maximum of
## first curve
res1 <- calib2(refcurve = CAL, predcurve = PRED, thresh = "cpD2", dil = COPIES)
## using a defined treshold value
res2 <- calib2(refcurve = CAL, predcurve = PRED, thresh = 0.5, dil = COPIES)
## using six dilutions with
## four replicates/dilution
CAL2 <- modlist(reps, fluo = 2:25, baseline = 1:8)
res3 <- calib2(refcurve = CAL2, predcurve = PRED, thresh = "cpD2",
dil = COPIES, group = gl(6,4))
Run the code above in your browser using DataLab