<div dir="ltr">Amigos<div><br></div><div>Eu tenho um conjunto de dados com a média da idade dos participantes e o desvio padrão da mesma e gostaria de gerar a distribuição dessas idades para que eu possa obter a proporção de uma determinada faixa etária.</div>
<div><br></div><div>Eu fiz a função abaixo: </div><div><div><br></div><div>prop <- function(x){</div><div>for (i in 1:nrow(x))</div><div>z[i]=rnorm(x$npart[i], mean = x$idade[i],sd =x$sd[i])</div><div>z</div><div>y = ifelse(z < 45,"menor de 45 anos","maior de 45 anos")</div>
<div>tabela <- table(y)</div><div>tabela <- round(prop.table(tabela)*100,2)</div><div>resultado <- tabela[2]</div><div>print(resultado)}</div><div><br></div><div>Onde npart é o número total de participantes.</div>
<div><br></div><div>O que tenho que modificar nessa função para que eu possa obter os resultados?</div><div><br></div><div>Att</div><div><br></div>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br><a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
</div></div>
</div></div>