create_amplification_curve.R

library(tidyverse)

## For just recreating plot by well
d <- read_csv("./371a_validation_amplification.csv")
d <- d %>% select(!X1)
d <- d %>% 
  pivot_longer(!Cycle, names_to = 'well', values_to = 'RFU')
p <- ggplot(d, aes(x = Cycle, y = RFU, color = well)) + 
  geom_line()
ggsave('amplification_plot.png', p)