Vogelstein B, Kinzler KW, Digital PCR. PNAS, 1999. 96(16): p. 9236-9241.
adpcr <- sim_adpcr(m = 400, n = 765, times = 20, pos_sums = FALSE, n_panels = 1)
plot_panel(adpcr, 45, 17, col = "green")
pos_chambers <- sum(adpcr > 0)
dpcr_density(k = pos_chambers, n = 765)
Run the code above in your browser using DataLab