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

Domingo Junho 23 16:05:49 BRT 2013

Benilton você tem alguma sugestão?

Abraços

Em 23 de junho de 2013 14:41, Sérgio Henrique almeida da silva ju <
sergio.edfisica em gmail.com> escreveu:

> 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
>

-- 
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/49dacfe3/attachment.html>