## 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 <- calib(refcurve = CAL, predcurve = PRED, thresh = "cpD2", dil = COPIES)
## using a defined treshold value
res2 <- calib(refcurve = CAL, predcurve = PRED, thresh = 0.5, dil = COPIES)
## using replicates for reference curve
ml1 <- modlist(reps, model = l4)
DIL <- rep(10^(6:0), each = 4)
res1 <- calib(refcurve = ml1, dil = DIL)
## iterating the intercept with 50 steps
par(ask = FALSE)
res2 <- calib(refcurve = CAL, predcurve = PRED, dil = COPIES, opt = "inter",
opt.step = c(50, 0))
## iterating the intercept/slope with 20 steps
par(ask = FALSE)
res3 <- calib(refcurve = CAL, predcurve = PRED, dil = COPIES, opt = "slope",
opt.step = c(20, 20))
Run the code above in your browser using DataLab