Hello!
I've solved the problems so don't bother. I can use Paste function like this:
i <- 1
while (i <15)
{
s<-data.frame(data1[,1],data1[,(2*i)],data1[,(2*i+1)])
write.table(s,paste("F:\\s.txt",i,sep="."),quote=FALSE,row.names=FALSE,col.names=FALSE)
i <- i+1;
}
Thank you very much and sorry for multiple e-mails!
Gabor Grothendieck <[EMAIL PROTECTED]> 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]]
>
> ______________________________________________
> [email protected] 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]]
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
