## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq', package='qrqc'))
## Plot GC content
gcPlot(s.fastq)
## Plot multiple GC content plots
s.trimmed.fastq <- readSeqFile(system.file('extdata',
'test-trimmed.fastq', package='qrqc'))
gcPlot(list("not trimmed"=s.fastq, "trimmed"=s.trimmed.fastq))
## Graphical features can be added
gcPlot(s.trimmed.fastq) + geom_hline(yintercept=0.5, color="purple")
Run the code above in your browser using DataLab