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)
}