## single plot
m1 <- pcrfit(reps, 1, 2, l5)
plot(m1)
## add another plot in blue
## with 99\% confidence interval
m2 <- pcrfit(reps, 1, 12, l5)
plot(m2, add = TRUE, col = 4, confband = "confidence", level = 0.99)
## plot a 'modlist' batch with coloring of replicates
ml <- modlist(reps, 1, 2:13, model = l4)
plot(ml, col = gl(3,4))
## only the fitted curves
## and a subset of data
plot(ml, type = "l", col = rep(1:3, each = 4),
par2D = list(xlim = c(10, 30)))
## plot a 'replist'
rl <- replist(ml, group = gl(3, 4))
plot(rl)
## standard deviation instead of
## replicate points; suppress plotting
## of point symbols
plot(rl, type = "l", errbar = "sd",
par2D = list(pch = ""))
## 95\% confidence values
plot(rl, errbar = "conf",
par2D = list(pch = ""))
## plot single curves.
## good for diagnostics...
plot(ml, which = "single", col = rep(1:3, each = 4))
## 3D plots of 'modlist's or 'replist's
plot(ml, which = "3D", col = rep(1:3, each = 4))
rgl.close()
plot(rl, which = "3D")
rgl.close()
## example for outlier identification
## RED/*name* indicates failed fitting,
## BLUE/**name** indicates outlier (KOD or SOD)
## spike a failed run into 'reps' dataset
dat <- reps
dat[, 10] <- rep(1, 49)
ml <- modlist(dat)
plot(ml, which = "single")
Run the code above in your browser using DataLab