diff hairpinTool.R @ 15:5a917ea5bed2

- Fixed read requirement report statistic.
author shian_su <registertonysu@gmail.com>
date Mon, 12 Jan 2015 16:31:48 +1100
parents 7aaa9bc23e3c
children 525bf4364896
line wrap: on
line diff
--- a/hairpinTool.R	Wed Nov 19 11:05:03 2014 +1100
+++ b/hairpinTool.R	Mon Jan 12 16:31:48 2015 +1100
@@ -417,6 +417,7 @@
                                                   
 if (inputType == "fastq" || inputType == "pairedFastq") {
   # Use EdgeR hairpin process and capture outputs
+
   hpReadout <- capture.output(
   data <- processAmplicons(readfile=fastqPath, readfile2=fastqPathRev,
                             barcodefile=samplePath, 
@@ -988,7 +989,7 @@
 }
 
 if (sampleReq != 0) {
-  tempStr <- paste("Samples that did not produce more than", sampleReq,
+  tempStr <- paste("Samples that did not produce more than", readReq,
                    "counts were filtered out.")
   ListItem(tempStr)