Thanks to all of you for your answers!

Peter's is definitely the easiest :)
for (i in 1:4) {
   temp <- data.frame(a=(i+1):(i+10), b=LETTERS[(i+1):(i+10)])
   filename <- paste("file", i, sep="")
   assign(filename, temp)
   save(list=c(filename), file=paste(filename, ".rda", sep=""))
}

Tao, I don't understand why you have backslashes before "file" and after 
.rda. I guess it's something about regular expression, but I'm still 
very new to it.
eval(parse(text=paste("save(file", i, ", file=\"file", i, ".rda\")", 
sep="")))

Jorge, your solution does not work... I've just copy/pasted your code. 
My second great weakness is with the apply() family. So maybe I have to 
adjust some part of the code to my needs, but I'm unable to do it.
i <- 1:4
sapply(i, function(i) {
   x <- data.frame(a=(i+1):(i+10), b=LETTERS[(i+1):(i+10)])
save(x, file = paste("file", i, ".rda", sep=""))
} )


Anyway, everything's now fine!
Thanks again.
Ivan


Le 5/19/2010 20:29, Jorge Ivan Velez a écrit :
> Hi Ivan,
>
> How about this?
>
> i <- 1:4
> sapply(i,
> function(i){
> x <- data.frame(a=(i+1):(i+10), b=LETTERS[(i+1):(i+10)])
> save(x, file = paste("file", i, ".rda", sep=""))
> }
> )
>
> HTH,
> Jorge

Le 5/19/2010 22:20, Peter Ehlers a écrit :
> On 2010-05-19 12:05, Shi, Tao wrote:
>> Ivan,
>>
>> Try this:
>>
>> eval(parse(text=paste("save(file", i, ", file=\"file", i, 
>> ".RData\")", sep="")))
>>
>> ...Tao
>>
>
> Or just use 'list=' like this:
>
> for (i in 1:4) {
>   temp <- data.frame(a=(i+1):(i+10), b=LETTERS[(i+1):(i+10)])
>   filename <- paste("file", i, sep="")
>   assign(filename, temp)
>   save(list=c(filename), file=paste(filename, ".rda", sep=""))
> }
>
>  -Peter Ehlers
>
>>
>>
>> ----- Original Message ----
>>> From: Ivan Calandra<ivan.calandra@uni-hamburg.de>
>>> To: r-help@r-project.org
>>> Sent: Wed, May 19, 2010 7:56:44 AM
>>> Subject: [R] save in for loop
>>>
>>> Dear users,
>>
>> My problem concerns save() within a for loop.
>> Here is my
>>> code:
>>
>> for (i in 1:4) {
>> temp<- data.frame(a=(i+1):(i+10),
>>> b=LETTERS[(i+1):(i+10)])
>> filename<- paste("file", i, sep="")
>>
>>> assign(filename, temp)
>> save(filename, file=paste(filename, ".rda",
>>> sep=""))
>> }
>>
>> As you can see, save() doesn't work as I would like: (1)
>>> the object saved is called "filename" (instead of "file1", "file2", 
>>> etc), and
>>> (2) it of course contains only the name (as character) instead of the
>>> data.frame
>>
>> How can I fix it?
>>
> [snip]
>

-- 
Ivan CALANDRA
PhD Student
University of Hamburg
Biozentrum Grindel und Zoologisches Museum
Abt. Säugetiere
Martin-Luther-King-Platz 3
D-20146 Hamburg, GERMANY
+49(0)40 42838 6231
ivan.calandra@uni-hamburg.de

**********
http://www.for771.uni-bonn.de
http://webapp5.rrz.uni-hamburg.de/mammals/eng/mitarbeiter.php


	[[alternative HTML version deleted]]

