[R-br] Selecionar casos - Função

[Sérgio Henrique almeida da silva ju]

Obrigado amigo

Mas nesse caso surge um problema em dados como fatores, por exemplo, no meu
caso ele cria um \m\ ou \f\, como resolver isso?


Em 23 de junho de 2013 14:35, ctrucios <ctrucios em gmail.com> escreveu:

> Oi, eu utilizou a função write.table. Aqui um exemplo
> write.table(TC95,"TC95.xls", sep="\t",col.names=TRUE, row.names=FALSE,
> quote=TRUE, na="NA")
> Em 23/06/2013 14:31, "Sérgio Henrique almeida da silva ju" <
> sergio.edfisica em gmail.com> escreveu:
>
> Só mais uma pergunta
>>
>> Como posso salvar esses arquivos em excel?
>> Eu tentei o comando da biblioteca WriteXLS, mas não rodou
>>
>> for (nm in Nms) WriteXLS(Res[[nm]], ExcelFileName = paste(nm, 'xls',
>> sep='.'))
>>
>> tem algum jeito melhor de salvar?
>>
>> Obrigado
>>
>>
>> Em 23 de junho de 2013 12:51, Sérgio Henrique almeida da silva ju <
>> sergio.edfisica em gmail.com> escreveu:
>>
>>> Obrigado
>>>
>>> Deu tudo certinho!
>>>
>>> Abraços
>>>
>>>
>>> Em 23 de junho de 2013 01:28, Benilton Carvalho <
>>> beniltoncarvalho em gmail.com> escreveu:
>>>
>>> Para dividir em subconjuntos, use o comando split().
>>>>
>>>> Res = split(dados,  dados$codigo)
>>>>
>>>> Daí, combine com um for() loop para gravar (ou mesmo um lapply).
>>>>
>>>> Nms = names(Res)
>>>> for (nm in Nms) write.table(Res[[nm]], file=paste(nm, 'txt', sep='.'))
>>>>
>>>> (código não-testado)
>>>>
>>>> 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.
>>>>
>>>> b
>>>> On 22 Jun 2013 23:23, "Sérgio Henrique almeida da silva ju" <
>>>> sergio.edfisica em gmail.com> wrote:
>>>>
>>>>> Prezados
>>>>>
>>>>> Gostaria de fazer uma função que através de um banco formasse diversos
>>>>> outros bancos selecionados por uma variável.
>>>>>
>>>>> Exemplo:
>>>>>
>>>>> codigo <- c(rep("10001",10), rep("10005",15),rep("20001",20))
>>>>> sexo <- c(rep("m",20),rep("f",25))
>>>>> idade <- rnorm(45,20)
>>>>>
>>>>> dados <-
>>>>> cbind(as.data.frame(codigo),as.data.frame(sexo),as.data.frame(idade))
>>>>>
>>>>> Quero quebrar esse banco dados em diversos outros bancos pela variável
>>>>> codigo
>>>>>
>>>>> como:
>>>>>
>>>>> dados1 <- dados[which(dados$codigo=="10001"),]
>>>>> .
>>>>> .
>>>>> .
>>>>> dadosn <- dados[which(dados$codigo=="n"),]
>>>>>
>>>>> 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.
>>>>>
>>>>> Outra pergunta tem como eu saber esses bancos comprimidos através do
>>>>> R, por exemplo em ZIP ou RAR?
>>>>>
>>>>> Obrigado
>>>>> --
>>>>> Sérgio Henrique Almeida da Silva Junior
>>>>> Doutorando em Epidemiologia em Saúde Pública
>>>>> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
>>>>> http://lattes.cnpq.br/1611345552843383
>>>>> Tel: (21) 68463637
>>>>> http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
>>>>>
>>>>> _______________________________________________
>>>>> R-br mailing list
>>>>> R-br em 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.
>>>>>
>>>>
>>>> _______________________________________________
>>>> R-br mailing list
>>>> R-br em 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.
>>>>
>>>
>>>
>>>
>>> --
>>> Sérgio Henrique Almeida da Silva Junior
>>> Doutorando em Epidemiologia em Saúde Pública
>>> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
>>> http://lattes.cnpq.br/1611345552843383
>>> Tel: (21) 68463637
>>> http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
>>>
>>
>>
>>
>> --
>> Sérgio Henrique Almeida da Silva Junior
>> Doutorando em Epidemiologia em Saúde Pública
>> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
>> http://lattes.cnpq.br/1611345552843383
>> Tel: (21) 68463637
>> http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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.
>>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>



-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 68463637
http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130623/5cfc27c0/attachment.html>