# NOT RUN {
data(C126EG685)
tmp <- C126EG685
plot(NA,NA, xlim = c(1,40), ylim = c(min(tmp[, 2:ncol(tmp)]),
max(tmp[, 2:ncol(tmp)])), xlab = "Cycle",
ylab = "RFU (FAM)",
main = "Amplification monitored at \n68.5 degrees Celsius (elongation
step)")
apply(tmp[, 2:ncol(tmp)], 2,
function(x) lines(tmp[1:nrow(tmp),1],x))
# }
Run the code above in your browser using DataLab