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:[email protected]
[email protected]
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)
}
_______________________________________________
R-br mailing list
[email protected]
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.
