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

[ASANTOS]

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 em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================