[R-br] Realização de sorteios e a cada processo geração de arquivos *txt individuais [RESOLVIDO]

[ASANTOS]

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 em yahoo.com.br
         alexandre.santos em 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)
>
> }

-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20151015/3018c5d2/attachment.html>