diff hairpinTool.R @ 16:525bf4364896

- Fixed sample reads filter statistics a bit more
author shian_su <registertonysu@gmail.com>
date Mon, 12 Jan 2015 16:35:08 +1100
parents 5a917ea5bed2
children
line wrap: on
line diff
--- a/hairpinTool.R	Mon Jan 12 16:31:48 2015 +1100
+++ b/hairpinTool.R	Mon Jan 12 16:35:08 2015 +1100
@@ -988,7 +988,7 @@
   ListItem(tempStr)
 }
 
-if (sampleReq != 0) {
+if (readReq != 0) {
   tempStr <- paste("Samples that did not produce more than", readReq,
                    "counts were filtered out.")
   ListItem(tempStr)