initial checkin:

Bioconductor: ShortRead qa

SVN: 17156

deep_sequencing_unit/source/R/createQaReport.R

+require(multicore)
+require (ShortRead)
+args <- commandArgs(TRUE)
+fastq_file <- args[1]
+qa <- qa(getwd(),args[1], type="fastq")
+report_dest <- paste(fastq_file, "ShortRead_qa", sep="_")
+qa_report <- report (qa, dest=report_dest , type="html")
\ No newline at end of file

deep_sequencing_unit/source/bash/createQaReport.sh

+#!/bin/bash
+
+R_SCRIP_PATH=/usr/local/dsu/R-scripts
+
+for i in `ls -1 *.fastq`
+do
+        Rscript --vanilla $R_SCRIP_PATH/createQaReport.R $i &
+done
+wait $!
+echo * DONE *