<html><body><div style="color:#000; background-color:#fff; font-family:Courier New, courier, monaco, monospace, sans-serif;font-size:10pt"><div><span>Bom dia,</span><span> estou usando esta rotina para analisar o banco postado abaixo. (Veja no link)</span></div><div><span><br><br>g<-read.csv2("C:\\Consulta\\HEMOAM\\Elene_fisio\\gest.csv")<br>g[g==""]<-NA<br>names(g)<br><br>tabelas<-function(x){<br> qtde<-table(x)<br> perc<-100*prop.table(table(x))<br> cbind(qtde,perc)<br>}<br>options(digits=3)<br><br>#imc<br>g$IMC_f<-rep(NA,length(g$IMC))<br>summary(g$IMC)<br>g$IMC_f[g$IMC<18.5]<-'Baixo peso'<br>g$IMC_f[18.5<=g$IMC &g$IMC<25]<-'Normal'<br>g$IMC_f[25<=g$IMC &g$IMC<30]<-'Pré-obesidade'<br>g$IMC_f[30<=g$IMC &g$IMC<35]<-'Obesidade - I'<br>g$IMC_f[35<=g$IMC
&g$IMC<40]<-'Obesidade - II'<br>g$IMC_f[g$IMC>=40]<-'Obesidade - III'<br><br>#Idade<br>g$ida<-rep(NA,length(g$Idade))<br>summary(g$Idade)<br>g$ida[18<=g$Idade &g$Idade<25]<-'1. 18 a 25'<br>g$ida[25<=g$Idade &g$Idade<32]<-'2. 25 a 32'<br>g$ida[32<=g$Idade &g$Idade<39]<-'3. 32 a 39'<br><br><br>apply(g[,c(-1,-2,-3,-7,-11,-14,-15,-16)],2,tabelas)<br><br></span></div><div><span><br></span></div><div><span><br></span></div><div><span>http://www.datafilehost.com/download-64b7d14d.html</span></div><div><br></div><div>Gostaria de obter um resulado semelhante a rotina tabelas, só que estratificado por grupo(Controle, Tratado). <br></div><div><br></div><div>Alguém tem uma sugestão?</div><div><br></div><div><br></div><div><br></div><div><br><span></span></div><div>Edson Lira<br>Estatístico<br>Manaus-Amazonas</div></div></body></html>