Hi Gabor,
 
Thank you very very much for your help!  I'm still a little confused.  Let me re-state my problems here:
 
There are 29 columns in my large dataset(with 50000 rows)
I need to split out 14 different files like this:
Col1, Col2, Col3------split1.txt
Col1, Col4, Col5------split2.txt
.
.
Col1, Col28,Col29-----split14.txt
 
How can I do that using some functions or loop statement?
 
Sincerely,
 
Alice

Gabor Grothendieck <ggrothendieck@gmail.com> wrote:
Try this:

col.list <- list(1:3, c(1,4:5))
for(cols in col.list) write.table(data1[,cols], ...whatever...)


On 11/10/05, alice.0309 wrote:
> Hi,
>
> I tried to split a big file into some small files seperately by R. I can only do that writing duplicated codes. When I tried to write a loop, I only got one appned or destroyed exported file. For example:
>
> data1<- read.table(file = "C:\\Alice\\MBEI.txt", sep="\t", check.names=FALSE)
> a<-subset(data1,select=c(V1,V2,V3))
> write.table<-(a,file="C:\\Alice\\aa1.txt",quote=FALSE,row.names=FALSE,col.name=FALSE,sep="\t")
> a<-subset(data1,select=c(V1,V4,V5))
> write.table(a,file="C:\\Alice\\aa2.txt",quote=FALSE,row.names=FALSE,col.name=FALSE,sep="\t")
>
> or
> data1<- read.table(file = "C:\\Alice\\MBEI.txt", sep="\t", check.names=FALSE)
> a<-data.frame(data1[,1],data1[,2],data1[,3]
> write.table<-(a,file="C:\\Alice\\aa1.txt",quote=FALSE,row.names=FALSE,col.name=FALSE,sep="\t")
> a<-data.frame(data1[,1],data1[,4],data1[,5]
> write.table(a,file="C:\\Alice\\aa2.txt",quote=FALSE,row.names=FALSE,col.name=FALSE,sep="\t")
>
> I tried to write a loop for it like :
>
>
> i <- 1
> while (i <3)
> {
> qq<-data.frame(test[,1],test[,2[i],test[,2[i]+1])
> write.table(qq,file="C:\\Alice\\bb.txt",quote=FALSE,row.names=FALSE,col.name=FALSE,sep="\t")
> i <- i+1;
> }
>
> But it's not right. I tried hard to revise it but I just can't make it. If someone can help me out here, your help is really greatly appreciated. Thank you sooo much!
>
> Best,
>
> Alice
>
>
>
>
>
> ---------------------------------
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@stat.math.ethz.ch mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
>

		
---------------------------------

	[[alternative HTML version deleted]]


