[R] appending collums in for loop

Who Am I? s1008701 at student.hsleiden.nl
Mon Mar 21 13:36:26 CET 2011


Hoi All,

I am trying to append collums to a data frame in a for loop. I read in
tables, do some processing and then write the result to a data.frame. But,
the thing I want is, that the results are appended to the data frame in
stead of overwriting the results of the prevous table.
It has to look something like this:

After going trough the loop once:
Array 1		
1		
2		
3		
4		
5		

After going trough the loop twice:		
Array 1	Array 2	
1	          1	
2	          2	
3	          3	
4	          4	
5	          5	

After going trough the loop three times:		
Array 1	Array 2	Array 3
1	           1	          1
2	           2	          2
3	           3	          3
4	           4	          4
5	           5	          5

This is my code:

setwd("J:/Stage/Datasets2/Datasets/outData")

masterTable<-read.table("AR1000900A_N_241110_(Mapping250K_Nsp)_2,Mapping250K_Nsp,CNprobes.tab
_SNP_IDs.xls",sep="\t", dec=",", fill=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(regionMatchABCDE, file= "Array 0-1-2-3-4-5.xls", col.names=T,
row.names=F, quote=F, sep = "\t")

Thanks!

--
View this message in context: http://r.789695.n4.nabble.com/appending-collums-in-for-loop-tp3393445p3393445.html
Sent from the R help mailing list archive at Nabble.com.



More information about the R-help mailing list