# NOT RUN {
library(theseus)
library(ggplot2)
fns <- sort(list.files(file.path(system.file(package='theseus'),
'/testdata/'), full.names=TRUE))
f_path <- fns[grepl('R1.fastq.gz', fns)]
r_path <- fns[grepl('R2.fastq.gz', fns)]
p.qc <- qualcontour(f_path, r_path, n_samples=2, verbose=TRUE,
percentile=.25, nc=1)
p.qc
p.qc + geom_hline(yintercept=175) + geom_vline(xintercept=275)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab