Realização de sorteios e a cada processo geração de arquivos *txt individuais
Prezados listeiros, Estou tentando a cada realização de um sorteio com a função sample(), criar um arquivo *txt com os resultados, mas de uma maneira que o nome do arquivo guarde a informação do número do sorteio, como por exemplo sorteio_10.txt, fiz um CRM para tentar fazer isso, o sorteio faz, mas como alterar o nome do arquivo que não consigo fazer, alguém poderia me ajudar? bd<-rnorm(10000)## Banco de dados Nbsp=10# Número de simulações ## Função para realização das simulações e armazenamento das informações RES<-NULL for(Nsim in 1:Nbsp){ sample_bd<-sample(bd,10) RES<-cbind(rep(Nbsp, length(sample_bd)),sample_bd) write.table(RES,"sorteio_N.txt", row.names=F, col.names=F,append=T) } # -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================
Não serve fazer um paste() para compor o nome com atual valor do Nsim? À disposição? Walmes.
Boa noite Walmes, Não entendi um paste () dentro do nome a ser atribuido ao arquivo, ficando "sorteio_"paste (nsim)".txt"? Obrigado De:"Walmes Zeviani" <walmeszeviani@gmail.com> Data:19:18 Qua, 14 de Out de PM Assunto:Re: [R-br] Realização de sorteios e a cada processo geração de arquivos *txt individuais Não serve fazer um paste() para compor o nome com atual valor do Nsim? À disposição? Walmes. _______________________________________________ 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� c�igo m�imo reproduz�el.
Alexandre, Veja se o seguinte código te ajuda: ------------------- bd <- rnorm(10000) # Banco de dados Nbsp <- 10 # Número de simulações ## Função para realização das simulações e armazenamento das informações RES <- NULL for(Nsim in 1:Nbsp){ sample_bd <- sample(bd, 10) RES <- cbind(rep(Nbsp, length(sample_bd)), sample_bd) write.table(RES, paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""), row.names=F, col.names=F, append=T) } 2015-10-14 21:11 GMT-03:00 Alexandre Santos <alexandresantosbr@yahoo.com.br> :
Boa noite Walmes,
Não entendi um paste () dentro do nome a ser atribuido ao arquivo, ficando "sorteio_"paste (nsim)".txt"?
Obrigado ------------------------------ *De*:"Walmes Zeviani" <walmeszeviani@gmail.com> *Data*:19:18 Qua, 14 de Out de PM *Assunto*:Re: [R-br] Realização de sorteios e a cada processo geração de arquivos *txt individuais
Não serve fazer um paste() para compor o nome com atual valor do Nsim?
À disposição? Walmes.
_______________________________________________ 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� c�igo m�imo reproduz�el.
_______________________________________________ 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.
-- Marcus Nunes http://marcusnunes.me/
Muito obrigado Marcus, Problema resolvido!! Só alterei Nbsp por Nsim e removi o append, #Start bd <- rnorm(10000) # Banco de dados Nbsp <- 10 # Número de simulações ## Função para realização das simulações e armazenamento das informações RES <- NULL for(Nsim in 1:Nbsp){ sample_bd <- sample(bd, 10) RES <- cbind(rep(Nsim, length(sample_bd)), sample_bd) write.table(RES, paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""), row.names=F, col.names=F, append=F) } #End -- ====================================================================== Alexandre dos Santos Proteção Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ====================================================================== Em 14/10/2015 22:58, Marcus Nunes escreveu:
bd <- rnorm(10000) # Banco de dados Nbsp <- 10 # Número de simulações
## Função para realização das simulações e armazenamento das informações
RES <- NULL
for(Nsim in 1:Nbsp){
sample_bd <- sample(bd, 10) RES <- cbind(rep(Nbsp, length(sample_bd)), sample_bd) write.table(RES, paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""), row.names=F, col.names=F, append=T)
}
participantes (4)
-
Alexandre Santos -
ASANTOS
-
Marcus Nunes -
Walmes Zeviani