# NOT RUN {
# locate and read file
fl <- system.file('extdata', 'ct3.csv', package = 'pcr')
ct3 <- read.csv(fl)
# make amount/dilution variable
amount <- rep(c(1, .5, .2, .1, .05, .02, .01), each = 3)
# plot the standard curves
pcr:::.pcr_plot_assess(ct3,
amount = amount,
reference_gene = 'GAPDH',
method = 'standard_curve')
# plot amplification efficiency
pcr:::.pcr_plot_assess(ct3,
amount = amount,
reference_gene = 'GAPDH',
method = 'efficiency')
# }
Run the code above in your browser using DataLab