[R-br] Rotina order

[Edson Lira]

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
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20111213/d6d0f94c/attachment.html>