Gerar uma sequência de gráficos diferentes

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"

Mauro, se você colocar o: " f=rmultinom(30,3,prob=c(0.5,0.3,0.8))*dmultinom(x=1:3,prob=c(0.5,0.3,0.8)) " dentro do seu loop, creio que seus gráficos vão sair de forma diferente. Att Éder Em 19 de janeiro de 2012 02:36, Mauro Sznelwar <sznelwar@uol.com.br> escreveu:
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"
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

Sabe como fazer? Já tentei e não consegui! Mauro, se você colocar o: " f=rmultinom(30,3,prob=c(0.5,0.3,0.8))*dmultinom(x=1:3,prob=c(0.5,0.3,0.8)) " dentro do seu loop, creio que seus gráficos vão sair de forma diferente. Att Éder Em 19 de janeiro de 2012 02:36, Mauro Sznelwar <sznelwar@uol.com.br> escreveu:
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" .

Veja esses posts http://ryouready.wordpress.com/2010/11/21/animate-gif-images-in-r-imagemagic... http://ridiculas.wordpress.com/2011/06/15/animacoes-em-documentos-pdf-prodiz... http://ridiculas.wordpress.com/2011/11/27/newton-raphson-em-uma-dimensao/ À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================

Obrigado pelas respostas. Eu rodei isto e gerou gráficos diferentes, mas não consegui fazer a sequência animada que é o último comando $ convert *.jpeg -delay 3 -loop 0 mutinom.gif Alguém sabe como adaptá-lo no meu caso? Eu adaptei do exemplo que tem no site http://www.r-bloggers.com/animated-plots-with-r/ e não consegui reproduzir também a animação de lá que dá o comando $ convert *.png -delay 3 - loop 0 binom.gif frames = 5 for(i in 1:frames){ x = seq(0, i, 1) f.3 = rmultinom(30,3,prob=c(0.5,0.3,0.8))*dmultinom(x=1:3,prob=c(0.5,0.3,0.8)) if (i <= 5) {name = paste('000',i,'plot.jpeg',sep='')} #saves the plot as a .jpeg file in the working directory jpeg(name) contour(f.3, ylab ='probability',main = paste('Multinomial density with n = ', i), col = 'red') dev.off() } $ convert *.jpeg -delay 3 -loop 0 mutinom.gif Veja esses posts http://ryouready.wordpress.com/2010/11/21/animate-gif-images-in-r-imagemagic... http://ridiculas.wordpress.com/2011/06/15/animacoes-em-documentos-pdf-prodiz... http://ridiculas.wordpress.com/2011/11/27/newton-raphson-em-uma-dimensao/ À disposição. Walmes.

Mauro, Pode ter acontecido uma coisa: você ter copiado e colado o código do post sem ler o post! Os posts que eu enviei precisam do ImageMagick, um programa relacionado a imagem. Não estou seguro que funcionará para Windows, pórem a resposta número 9 ao post do primento link é sobre uma solução para usar no Windows. Como sugestão, tente usar a função write.gif() do pacote caTools, que segundo o primeiro post que passei informa, parece ser livre de SO. Importante, leia a documentação. À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
participantes (3)
-
Eder David Borges da Silva
-
Mauro Sznelwar
-
Walmes Zeviani