<div dir="ltr"><div><div><div><br>doenca <- c(1,2,1,2,3,2,3,1,3,2,1,1,1,2,3)<br>idoso <- c(1,0,0,1,1,0,0,1,1,0,0,0,1)<br><br>tab <- function(x,acu="n",casas=1){<br>  freq.abs <- table(x)<br>  n <- length(na.omit(x)) <br>  freq.rel <- round((table(x)*100/length(na.omit(x))),casas)<br>  freqac.rel <- round(cumsum(freq.rel),casas)<br>  freqac.abs <- cumsum(freq.abs)<br>  ifelse(is.numeric(x)==F | acu=="n" | acu=="N",tab <- cbind(freq.abs,freq.rel),<br>         tab <- cbind(freq.abs,freqac.abs,freq.rel,freqac.rel))<br>  print(tab)<br>  cat("Total: ",n,"\n")<br>}<br><br>tab(idoso) <br><br>  freq.abs freq.rel<br>0        7     53.8<br>1        6     46.2<br>Total:  13 <br><br>tab(idoso,casas=2) <br><br>  freq.abs freq.rel<br>0        7    53.85<br>1        6    46.15<br>Total:  13 <br><br>tab(doenca)<br><br>> tab(doenca)<br>  freq.abs freq.rel<br>1        6     40.0<br>2        5     33.3<br>3        4     26.7<br>Total:  15 <br><br>tab(doenca,acu="s")<br><br>  freq.abs freqac.abs freq.rel freqac.rel<br>1        6          6     40.0       40.0<br>2        5         11     33.3       73.3<br>3        4         15     26.7      100.0<br>Total:  15 <br><br></div>Veja se ajuda.<br></div>Mauricio Cardeal<br></div>UFBA<br><div><div><div><div class="gmail_extra"><br><div class="gmail_quote">Em 23 de outubro de 2014 12:41, Jakson Alves de Aquino <span dir="ltr"><<a href="mailto:jalvesaq@gmail.com" target="_blank">jalvesaq@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><span class="">Em Quarta-feira, 22 de Outubro de 2014 21:55,<br>
"<a href="mailto:lutipilotto@yahoo.com.br">lutipilotto@yahoo.com.br</a>" <<a href="mailto:lutipilotto@yahoo.com.br">lutipilotto@yahoo.com.br</a>> escreveu:<br>
</span><span class="">> tem algum comando para fazer uma tabela única direto no R com frequencia relativa e absoluta? E tb valores de chi² e p.<br>
> Estou usando os comandos abaixo, mas o resultado aparece em tabelas individuais.<br>
><br>
> table(q11,q13)<br>
> rowPercents(table(q11,q13))<br>
> f <- chiSquare(q13 ~ q11)<br>
> f<br>
<br>
</span>Talvez a função CrossTable do pacote descr seja o que você procura...<br>
<div class=""><div class="h5">_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>Mauricio Cardeal<br>UFBA<br>
</div></div></div></div></div>