From 3e8fc71743507fb3d3068296135eec01ab4fda0b Mon Sep 17 00:00:00 2001
From: corin <corin@348d0f76-0448-11de-a6fe-93d51630548a>
Date: Wed, 4 May 2011 16:59:17 +0000
Subject: [PATCH] Missing parenthesis for database access commands added

git-svn-id: file:///humgen/gsa-scr1/gsa-engineering/svn_contents/trunk@5755 348d0f76-0448-11de-a6fe-93d51630548a
---
 R/DataProcessingReport/Tearsheet.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/DataProcessingReport/Tearsheet.R b/R/DataProcessingReport/Tearsheet.R
index e685e7257..0a5df233f 100644
--- a/R/DataProcessingReport/Tearsheet.R
+++ b/R/DataProcessingReport/Tearsheet.R
@@ -26,9 +26,9 @@ lane<-data.frame()
 samp<-data.frame()
 for(squid in squids){
   gsa.read.squidmetrics(squid, TRUE)->lanemetrics 
-  addlanes<-lanemetrics[which(lanemetrics$"Individual ID" %in% settable[,2],]
+  addlanes<-lanemetrics[which(lanemetrics$"Individual ID" %in% settable[,2]),]
   gsa.read.squidmetrics(squid, FALSE)->samplemetrics 
-  addsamps<-samplemetrics[which(samplemetrics$"Sample" %in% settable[,2],]
+  addsamps<-samplemetrics[which(samplemetrics$"Sample" %in% settable[,2]),]
   lane<-rbind(lane, addlanes)
   samp<-rbind(samp, addsamps)
 }