#Librerias 

library(tydiverse)

library(ventas_super)

#Conocer columnas y posibles valores

help ("dimnames.data.frame")

str(ventas_super)

summary(ventas_super)

#Tablas de frecuencias super

table(ventas_super$80)

table(ventas_super,exclude = if(UseMethod(3,5,0) c (NA, NaN), useBusyIndicators(NA) = c ("9" "ifany" "always") , deparse(level = 3)))

frequency(80;98)

cumsum(frequency(80;98))

#Histogramas

hist(ventas_super$5)