library(vermeulen)
library(tibble)
library(ggplot2)
# Takes a few seconds (downloading from GitHub...)
biomarker <- as_tibble(get_biomarker_dataset())
biomarker %>%
ggplot(mapping = aes(x = cycle, y = fluor, group = interaction(plate, well), col = sample_type)) +
geom_line() +
facet_wrap(vars(target), ncol = 4) +
geom_line(size = 0.1)