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
This commit is contained in:
corin 2011-05-04 16:59:17 +00:00
parent 23efd66d31
commit 3e8fc71743
1 changed files with 2 additions and 2 deletions

View File

@ -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)
}