[R-br] Ajuda em uma função

[Sérgio Henrique almeida da silva ju]

Amigos

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.

Eu fiz a função abaixo:

prop <- function(x){
for (i in 1:nrow(x))
z[i]=rnorm(x$npart[i], mean = x$idade[i],sd =x$sd[i])
z
y = ifelse(z < 45,"menor de 45 anos","maior de 45 anos")
tabela <- table(y)
tabela <- round(prop.table(tabela)*100,2)
resultado <- tabela[2]
print(resultado)}

Onde npart é o número total de participantes.

O que tenho que modificar nessa função para que eu possa obter os
resultados?

Att

-- 
Sérgio Henrique Almeida da Silva Junior
Doutorando em Epidemiologia em Saúde Pública
Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ
http://lattes.cnpq.br/1611345552843383
Tel: (21) 68463637
http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131130/6f2193c6/attachment.html>