Displaying 1 result from an estimated 1 matches for "snpidfil".
Did you mean:
snpidfile
2011 Mar 21
3
appending collums in for loop
...T, header=T)
masterTable<-data.frame(masterTable)
fileNames<-list.files(getwd(), pattern='_0,5 -0,51.xls')
regionMatchABCDE<-data.frame()
for(i in 1:5) {
fileName <- fileNames[i]
newFile <- file.path(getwd(), paste(fileNames[i], "samen_0,5
-0,51.xls"))
snpidFile<-read.table(fileNames[i],sep="\t", dec=",", fill=T, header=T)
snpidFile<-data.frame(snpidFile)
regionMatch<-cbind(masterTable, masterTable[match(masterTable$Pos,
snpidFile$Pos),])
regionMatchABCDE<-cbind(regionMatch[,10:18])
}
write.table(regionMatchABC...