<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>Compreendo.<div><br></div><div>Tente este:</div><div><br></div><div><span style="color: rgb(68, 68, 68); font-family: 'Lucida Console', 'courier new', monospace; font-size: 12.800000190734863px; line-height: 19.5px; background-color: rgb(250, 250, 250);">library(xlsReadWrite)</span><br style="margin: 0px; padding: 0px; color: rgb(68, 68, 68); font-family: 'Lucida Console', 'courier new', monospace; font-size: 12.800000190734863px; line-height: 19.5px;"><span style="color: rgb(68, 68, 68); font-family: 'Lucida Console', 'courier new', monospace; font-size: 12.800000190734863px; line-height: 19.5px; background-color: rgb(250, 250, 250);">write.xls(mydata, "c:/mydata.xls")</span></div><div><br></div><div>De: <a href="http://www.statmethods.net/input/exportingdata.html" target="_blank" style="font-size: 12pt;">http://www.statmethods.net/input/exportingdata.html</a></div><div><br>---<div><br></div><div>Atenciosamente,</div><div>Raphael Saldanha</div><div><br></div><div>rfsaldanha@outlook.com</div><br><br><div><hr id="stopSpelling">Date: Sun, 23 Jun 2013 16:49:28 -0300<br>From: sergio.edfisica@gmail.com<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] Selecionar casos - Função<br><br><div dir="ltr">o problema é que estes arquivos devem ser salvos dentro de arquivos zip com formato xls, a empresa deseja usa diretamente esses arquivos, não sei o motivo... para evitar todo trabalho manual eu estou tentando fazer isso diretamente pelo R.</div>
<div class="ecxgmail_extra"><br><br><div class="ecxgmail_quote">Em 23 de junho de 2013 16:45, Raphael Saldanha <span dir="ltr"><<a href="mailto:rfsaldanha@outlook.com" target="_blank">rfsaldanha@outlook.com</a>></span> escreveu:<br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;">
<div><div dir="ltr"><div><span style="font-size:12pt;">Você pode salvar como CSV. O Excel costuma reconhecer e abrir o arquivo sem problemas:</span></div><div><br></div><div>?write.csv2<br><br>---<div><br></div><div>Atenciosamente,</div>
<div>Raphael Saldanha</div><div><br></div><div><a href="mailto:rfsaldanha@outlook.com" target="_blank">rfsaldanha@outlook.com</a></div><br><br><div><hr>Date: Sun, 23 Jun 2013 16:12:27 -0300<br>From: <a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a><br>
To: <a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a><br>Subject: Re: [R-br] Selecionar casos - Função<div><div class="h5"><br><br><p dir="ltr">Você terá de esperar a ajuda de alguém que use Excel... Salvar como texto, como indiquei, não te impede de abrir no Excel... </p>
<div>On 23 Jun 2013 14:41, "Sérgio Henrique almeida da silva ju" <<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>> wrote:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex;">
<div dir="ltr">Obrigado amigo<div><br></div><div>Mas nesse caso surge um problema em dados como fatores, por exemplo, no meu caso ele cria um \m\ ou \f\, como resolver isso?</div></div><div><br><br><div>
Em 23 de junho de 2013 14:35, ctrucios <span dir="ltr"><<a href="mailto:ctrucios@gmail.com" target="_blank">ctrucios@gmail.com</a>></span> escreveu:<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex;">
<p dir="ltr">Oi, eu utilizou a função write.table. Aqui um exemplo<br>
write.table(TC95,"TC95.xls", sep="\t",col.names=TRUE, row.names=FALSE, quote=TRUE, na="NA")</p>
<div>Em 23/06/2013 14:31, "Sérgio Henrique almeida da silva ju" <<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>> escreveu:<div><div>
<br><blockquote style="border-left:1px #ccc solid;padding-left:1ex;">
<div dir="ltr">Só mais uma pergunta<div><br></div><div>Como posso salvar esses arquivos em excel?</div><div>Eu tentei o comando da biblioteca WriteXLS, mas não rodou</div><div><br></div><div>for (nm in Nms) WriteXLS(Res[[nm]], ExcelFileName = paste(nm, 'xls', sep='.'))<br>
</div><div><br></div><div>tem algum jeito melhor de salvar?</div><div><br></div><div>Obrigado</div></div><div><br><br><div>Em 23 de junho de 2013 12:51, Sérgio Henrique almeida da silva ju <span dir="ltr"><<a href="mailto:sergio.edfisica@gmail.com" target="_blank">sergio.edfisica@gmail.com</a>></span> escreveu:<br>
<blockquote style="border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr">Obrigado<div><br></div><div>Deu tudo certinho!</div><div><br></div><div>Abraços</div></div><div>
<br><br><div>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:<div><div>
<br>
<blockquote style="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><div><div>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>
</div></div><blockquote style="border-left:1px #ccc solid;padding-left:1ex;"><div><div>
<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 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" 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></div></div><div><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: <a 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></div>
</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: <a 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>
<br>_______________________________________________<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></div></div>
<br>_______________________________________________<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 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: <a 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>
<br>_______________________________________________<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></div></div>_______________________________________________
R-br mailing list
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a>
<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>
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.</div></div> </div></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>
<br>_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
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.</div></div> </div></body>
</html>