## Load a FASTQ file, with sequence hashing.
s.fastq <- readSeqFile(system.file('extdata', 'test.fastq',
package='qrqc'))
# A custom quality plot
ggplot(getQual(s.fastq)) + geom_linerange(aes(x=position, ymin=lower,
ymax=upper), color="grey") + geom_smooth(aes(x=position, y=quality),
data=getMCQual(s.fastq), color="blue", se=FALSE)
Run the code above in your browser using DataLab