doenca <- c(1,2,1,2,3,2,3,1,3,2,1,1,1,2,3)
idoso <- c(1,0,0,1,1,0,0,1,1,0,0,0,1)

tab <- function(x,acu="n",casas=1){
  freq.abs <- table(x)
  n <- length(na.omit(x))
  freq.rel <- round((table(x)*100/length(na.omit(x))),casas)
  freqac.rel <- round(cumsum(freq.rel),casas)
  freqac.abs <- cumsum(freq.abs)
  ifelse(is.numeric(x)==F | acu=="n" | acu=="N",tab <- cbind(freq.abs,freq.rel),
         tab <- cbind(freq.abs,freqac.abs,freq.rel,freqac.rel))
  print(tab)
  cat("Total: ",n,"\n")
}

tab(idoso)

  freq.abs freq.rel
0        7     53.8
1        6     46.2
Total:  13

tab(idoso,casas=2)

  freq.abs freq.rel
0        7    53.85
1        6    46.15
Total:  13

tab(doenca)

> tab(doenca)
  freq.abs freq.rel
1        6     40.0
2        5     33.3
3        4     26.7
Total:  15

tab(doenca,acu="s")

  freq.abs freqac.abs freq.rel freqac.rel
1        6          6     40.0       40.0
2        5         11     33.3       73.3
3        4         15     26.7      100.0
Total:  15