diff --git a/deep_sequencing_unit/source/R/createQaReport.R b/deep_sequencing_unit/source/R/createQaReport.R
new file mode 100644
index 0000000000000000000000000000000000000000..3463d50a994ffec72eb714ea867e4ae955e93650
--- /dev/null
+++ b/deep_sequencing_unit/source/R/createQaReport.R
@@ -0,0 +1,7 @@
+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
diff --git a/deep_sequencing_unit/source/bash/createQaReport.sh b/deep_sequencing_unit/source/bash/createQaReport.sh
new file mode 100644
index 0000000000000000000000000000000000000000..1da680cf906a3b36560affaddc897bebbe3c1ef9
--- /dev/null
+++ b/deep_sequencing_unit/source/bash/createQaReport.sh
@@ -0,0 +1,10 @@
+#!/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 *