<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
Muito obrigado Marcus,<br>
<br>
Problema resolvido!! Só alterei Nbsp por Nsim e removi o
append, <br>
<br>
#Start<br>
bd <- rnorm(10000) # Banco de dados<br>
Nbsp <- 10 # Número de simulações<br>
<br>
## Função para realização das simulações e armazenamento das
informações<br>
<br>
RES <- NULL<br>
<br>
for(Nsim in 1:Nbsp){<br>
<br>
sample_bd <- sample(bd, 10)<br>
RES <- cbind(rep(Nsim, length(sample_bd)), sample_bd)<br>
write.table(RES, paste("sorteio", sprintf("%04d", Nsim),
".txt", sep=""), row.names=F, col.names=F, append=F)<br>
<br>
}<br>
#End<br>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
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)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
<div class="moz-cite-prefix">Em 14/10/2015 22:58, Marcus Nunes
escreveu:<br>
</div>
<blockquote
cite="mid:CA+QGQvu6EqdGkPiyMdFLdTvRJBhDYipBA9AAv6pTRu9J2vqj6g@mail.gmail.com"
type="cite">
<div>
<div>bd <- rnorm(10000) # Banco de dados</div>
<div>Nbsp <- 10 # Número de simulações</div>
<div><br>
</div>
<div>## Função para realização das simulações e armazenamento
das informações</div>
<div><br>
</div>
<div>RES <- NULL</div>
<div><br>
</div>
<div>for(Nsim in 1:Nbsp){</div>
<div><br>
</div>
<div><span class="" style="white-space:pre"> </span>sample_bd
<- sample(bd, 10)</div>
<div><span class="" style="white-space:pre"> </span>RES
<- cbind(rep(Nbsp, length(sample_bd)), sample_bd)</div>
<div><span class="" style="white-space:pre"> </span>write.table(RES,
paste("sorteio", sprintf("%04d", Nsim), ".txt", sep=""),
row.names=F, col.names=F, append=T)</div>
<div><br>
</div>
<div>}</div>
</div>
</blockquote>
<br>
</body>
</html>