<div dir="ltr">Obrigado<div><br></div><div>Deu tudo certinho!</div><div><br></div><div>Abraços</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 23 de junho de 2013 01:28, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><p dir="ltr">Para dividir em subconjuntos, use o comando split(). </p>
<p dir="ltr">Res = split(dados,  dados$codigo) </p>
<p dir="ltr">Daí, combine com um for() loop para gravar (ou mesmo um lapply). </p>
<p dir="ltr">Nms = names(Res) <br>
for (nm in Nms) write.table(Res[[nm]], file=paste(nm, 'txt', sep='.')) </p>
<p dir="ltr">(código não-testado) </p>
<p dir="ltr">Sobre gravar compactado, vc pode mudar o nome do arquivo para uma conexão gzip ou, se bem me lembro, zip. Veja a ajuda para os comandos de mesmo nome. </p>
<p dir="ltr">b</p>
<div class="gmail_quote"><div><div class="h5">On 22 Jun 2013 23:23, "Sérgio Henrique almeida da silva ju" <<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>> wrote:<br type="attribution">
</div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
<div dir="ltr">Prezados<div><br></div><div>Gostaria de fazer uma função que através de um banco formasse diversos outros bancos selecionados por uma variável.</div><div><br></div><div>Exemplo:</div><div><br></div><div><div>


codigo <- c(rep("10001",10), rep("10005",15),rep("20001",20))</div><div>sexo <- c(rep("m",20),rep("f",25))</div><div>idade <- rnorm(45,20)</div><div><br></div><div>


dados <- cbind(as.data.frame(codigo),as.data.frame(sexo),as.data.frame(idade))</div><div><br></div><div>Quero quebrar esse banco dados em diversos outros bancos pela variável codigo</div><div><br></div><div>como:</div>


<div><br></div><div>dados1 <- dados[which(dados$codigo=="10001"),]<br></div><div>.</div><div>.</div><div>.</div><div>dadosn <- dados[which(dados$codigo=="n"),]<br></div><div><br></div><div>Posso fazer uma table(codigo) e jogar os valores dentro desse comando, mas não sei como fazer isso, deixando a função mais automática.</div>


<div><br></div><div>Outra pergunta tem como eu saber esses bancos comprimidos através do R, por exemplo em ZIP ou RAR? </div><div><br></div><div>Obrigado</div>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>


Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>


Tel: <a href="tel:%2821%29%2068463637" value="+552168463637" target="_blank">(21) 68463637</a><br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>

</div></div>
</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br>
<div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>
Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br></div></div>
</div>