Untitled

a<-c(26,28,32,32,33,34,34,35,36,36,37,37,38,40,40,41,41,42,44,45,46,46,48,50,50,51,51,51,56,64)

data<-data.frame(table(a))
frecuencia<-transform(data,
          FreAbAc=cumsum(data$Freq),
          FreRe=prop.table(data$Freq),
          FREREac=cumsum(prop.table(data$Freq))
          
          )
frecuencia