Hi! An alternative with 'assign':
for ( i in 71:75) { setwd(paste("C:/Awork/geneAssociation/removed8samples/neuhausen", i, sep="")) temp.df<-read.csv("seg.pr3.csv", head=T) temp.df$id<-paste0("sn",i,sep="") assign(paste0("seg",i,sep=""),temp.df) } rm(temp.df,i) # Clean up HTH, Kimmo 2018-04-17 kello 08:15 +0200, Albrecht Kauffmann wrote: > Hello Ding, > > try this: > > seg <- list() > for ( d in 71:75) { > s <- paste0("seg",d) > sn <- paste0("sn",d) > Dir<-paste("C:/Awork/geneAssociation/removed8samples/neuhausen", i, > sep="") > setwd(Dir) > seg[[s]] <- read.csv("seg.pr3.csv", head=T) > seg[[s]]$id <- sn > } > > Greetings, > Albrecht > ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.