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

jpeg(filename = "MeusGraficos%03d.jpg", width = 480, height = 480)

for (i in 1:5) contour(g)

dev.off()

#Só que estou gerando sempre o mesmo gráfico"