## Not run:
# args <- systemArgs(sysma="tophat.param", mytargets="targets.txt")
# fqlist <- seeFastq(fastq=infile1(args), batchsize=10000, klength=8)
# pdf("fastqReport.pdf", height=18, width=4*length(fastq))
# seeFastqPlot(fqlist)
# dev.off()
#
# ## End(Not run)
Run the code above in your browser using DataLab