marion.R

myFolder <- "/home/robin/imagesR"

test <- runif(n=10)

for(i in 1:10){
    png(filename=paste(myFolder, "/test_", i, ".png",sep=""), 
        units="in", 
        width=5, 
        height=4, 
        pointsize=12, 
        res=72)
    if (i==1) {
        plot(test)
        title( paste("titre bidon, à l'étape ", i, sep=""))
    } else {
        addtest <- runif(n=10)
        test <- c(test, addtest)
        plot(test)
        title( paste("titre bidon, à l'étape ", i, sep=""))
    }
    dev.off()
}