Por gentileza Edson, nos passe um exemplo reproduzível.

Att.
André BVS


Em 18/06/2013 21:17, Edson Lira < edinhoestat@yahoo.com.br > escreveu:
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