Plotting Histogram using histogram() and for loop and I want to save the histogram individually ... HELP

I am trying to write R codes for the histogram plot and saving it out.

There will be 146 histogram plots in total?.

I have the following R codes that draws the each Histogram ?.
library(lattice)
for(i in 8:153){ 
histogram(~ data[,i] | data[,2],
data=data,,ylab="Frequency",xlim=c(1,5),xlab="Score",ylim=c(0,100)),main=paste(colnames(data)[i],sep="")
}


And I also want to save each histogram in each separate pdf file using the
following codes ?.
png("hist.png[i]")
dev.off()

But my R coding does NOT work ?. I need someone to help me with this ??.
Thanks million

View this message in context: http://old.nabble.com/Plotting-Histogram-using-histogram%28%29-and-for-loop-and-I-want-to-save-the-histogram-individually-...-HELP-tp26328734p26328734.html
Sent from the R help mailing list archive at Nabble.com.