f=rmultinom(30,3,prob=c(0.5,0.3,0.8))*dmultinom(x=1:3,prob=c(0.5,0.3,0.8))
n=5
for(i
in 1:n){
g=f
contour(g)
}
#preciso que gere 5 gráficos diferentes (mas
não parece que gera gráficos #diferentes)
jpeg(filename =
"MeusGraficos%03d.jpg", width = 480, height = 480)
for (i in 1:5)
contour(g)
dev.off()