Acumuladas <- function(base, variable) {
Frecuencia<-eval(parse(text=paste("with(",base,", table(",variable,"))")))
Porcentaje <- round(100*Frecuencia/sum(Frecuencia), 3)
F_acumulada <- cumsum(Frecuencia)
P_acumulado <- round(100*F_acumulada/sum(Frecuencia), 3)
tabla <- cbind(Frecuencia, Porcentaje, F_acumulada, P_acumulado)
cat("\nTablas de frecuencias de la variable", variable,"\n\n")
tabla}