I can't reproduce your work, but I think you just need
> regionMatchABCDE[,i] <- cbind(regionMatch[,10:18])
instead of
regionMatchABCDE <- cbind(regionMatch[,10:18])
within the for loop
Scott
On Monday, March 21, 2011 at 7:36 AM, Who Am I? wrote:
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.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
