[R-br] Rotina order

[Elias T. Krainski]

Com 

  inap <- table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)
'inap' deixa de ter duas dimensões. Portanto, rowSums() é inadequado.

 
Elias T. Krainski


>________________________________
> De: Edson Lira <edinhoestat em yahoo.com.br>
>Para: R-br Lista <r-br em listas.c3sl.ufpr.br> 
>Enviadas: Terça-feira, 13 de Dezembro de 2011 13:22
>Assunto: [R-br] Rotina order
> 
>
>Bom dia a todos!
>
>Com a rotina abaixo eu consigo ordenar a tabela.
>
>inap<-table(tip_doa$INAPTIDAO,tip_doa$mês)
>inap2 = inap[order(rowSums(inap), decreasing=TRUE),]
>ftable(addmargins(inap2, c(1,2),
>     FUN=list(Total = sum)))
>
>Que me dá a saida abaixo(as primeiras linhas)
>
>                                                                    jan   fev   mar   abr   mai   jun   jul   ago   set   out   nov Total
>    
>ESTEVE EM ZONA DE MALARIA                                        465   443   387   362   343   347   343   385   550   397   409  4431
>HEMATOCRITO IRREGULAR                                            299   387   478   473   576   393   266   307   362   381   333  4255
>VARIAÇÃO DE PARCEIRO SEM PRESERVATIVO (MAIS DE 4 EM 12 MESES)    249   329   240   152   100   183   150    86   110   124   106  1829
>VARIAÇÃO DE PARCEIROS SEM PRESERVATIVO (MAIS DE 1 EM 6 MESES)    190   206   147    83    73   104    87    58   103    56   102  1209
>VARIAÇÃO DE PARCEIROS SEXUAIS SEM PRESERVATIVO                     0     0    20   106   238   135   109   138   134   142   160  1182
>GRIPE                                                            119   112   125    98   105   112    75    96    90    84   102  1118
>
>Gostaria de acrescentar o ano e ordenar. Quando acrescento o ano me dá o seguinte problema.
>
>>
 inap<-table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)
>> inap2 = inap[order(rowSums(inap),decreasing=TRUE),]
>Erro em inap[order(rowSums(inap), decreasing = TRUE), ] : 
>  número incorreto de dimensões
>> inap<-table(tip_doa$INAPTIDAO,tip_doa$ano,tip_doa$mês)
>> inap2 = inap[order(rowSums(inap),decreasing=TRUE),]
>Erro em inap[order(rowSums(inap), decreasing = TRUE), ] : 
>  número incorreto de dimensões
>> ftable(addmargins(inap2, c(1,2,3),
>+      FUN=list(Total = sum)))
>Erro em newdimnames[[margin]] : índice fora de limites
>
>Qual o problema? Alguém pode me ajudar?
>
> []'s.
>
>
>Edson Lira
>Estatístico
>Manaus-Amazonas
>_______________________________________________
>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.
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20111213/53dc517b/attachment.html>