Boa noite caros amigos,
A rotina abaixo
tabelas
<-
function
(
x
){
Qtde
<-table(
x
)
Perc
<-
100
*prop.table(table(
x
))
cbind(
Qtde
,
Perc
)
}
Gera tabelas do tipo:
$ida
Qtde Perc
20 |-- 30 anos 39 34
30 |-- 40 anos 57 50
40 anos ou mais 19 17
A idade tem valores de 21 a 47 anos.
Montei a rotina
m1
$
ida
<-rep(
NA
,length(
m1
$
idade
))
summary(
m1
$
idade
)
sd(m1$idade,na.rm=
T
)
m1$ida[
20
<=m1$idade&m1$idade<
30
]<-
"20 |-- 30 anos"
m1$ida[
30
<=m1$idade&m1$idade<
40
]<-
"30 |-- 40 anos"
m1
$
ida
[
m1
$
idade
>=
40
]<-
"40 anos ou mais"
Como faço para acrescentar a soma de Qtde e Perc?
[ ]'s.
Edson Lira
Estatístico
Manaus-Amazonas