# NOT RUN {
data(C126EG595)
tmp <- C126EG595
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 \n58.5 degrees Celsius (annealing 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