zzh
/
gatk-3.8
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
R/DataProcessingReport/Tearsheet.R
View File

@ -26,9 +26,9 @@ lane<-data.frame()
samp<-data.frame() samp<-data.frame()
for(squid in squids){ for(squid in squids){
gsa.read.squidmetrics(squid, TRUE)->lanemetrics 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 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) lane<-rbind(lane, addlanes)
samp<-rbind(samp, addsamps) samp<-rbind(samp, addsamps)
} }