x=c(0,1,2,2,0,0,1)
#calcular la frecuencia absoluta 
a=table(x)
a 
#calcular frecuencia relativa 
b=prop.table(a)
b 
#calcular la frecuencia absoluta acumulada 
d=cumsum(a)
d 
#calcular la frecuencia relativa acumulada 
e=cumsum(b)
e 
#poner los datos en columnas 
z=cbind("F.abs"=a,"F.rel"=b,"F.abs.acum"=d,"F.rel.acum"=e) 
z 
#añadir totales 
z=addmargins(z)
z 
#cambiar el nombre sum por el de totales 
rownames(z)[4]="totales"
z 
#eliminar la 5 columna 
z=z[ ,-5]
z 
#eliminar los totales de las frecuencias acumuladas 
z[4,c(3,4)]=NA
z