rownames(tabelas) <- c("nome 1", "nome 2")
? rownames
Paulo Justiniano Ribeiro Jr
LEG (Laboratorio de Estatistica e Geoinformacao)
Universidade Federal do Parana
Caixa Postal 19.081
CEP 81.531-990
Curitiba, PR - Brasil
Tel: (+55) 41 3361 3573
Fax: (+55) 41 3361 3141
e-mail: paulojus AT ufpr br
http://www.leg. ufpr.br/~ paulojus
On Wed, 5 Nov 2008, Edson Lira wrote:
> Olá pessoal, vejam se podem me ajudar eu tenho um banco de dados com k variáveis.
>
> Gostaria de criar uma função para me dar na saÃda uma tabela que me mostrasse a frequência absoluta simples e o percentual equivalente lado a lado.
>
> Usei o seguinte comando:
>
> tabela<- function(x){ cbind((freq< -table(x) ),(percen< -100*prop. table(table( x))))}
> apply(fis, 2, tabela)
>
> A saÃda foi a seguinte:
>
> $afec_1
> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [,1] [,2]
> ausente              2 18.2
> bronquite alérgica   1 9.1
> bronquite asmática   1 9.1
> derrame pleural      1 9.1
> gripe                1 9.1
> não                  3 27.3
> PNMÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1Â 9.1
> sÃfilis no sangue    1 9.1
>
> Vejam que as duas colunas são respectivamente o fi e o %, como nomear estas duas colunas?
>
> Eu gostaria que mostrasse:
> $afec_1
>                      n  %
> ausente              2 18.2
> bronquite alérgica   1 9.1
> bronquite asmática   1 9.1
> derrame pleural      1 9.1
> gripe                1 9.1
> não                  3 27.3
> PNMÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â 1Â 9.1
> sÃfilis no sangue    1 9.1
>
>
> Alguém pode me ajudar?
>
>
> Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara @ymail.com ou @rocketmail. com.
> http://br.new. mail.yahoo. com/addresses