# NOT RUN {
data(pew_energy_2018)
lapply(pew_energy_2018, head)
lapply(pew_energy_2018, length)
lapply(pew_energy_2018, table)
Prop <- function(x) { table(x) / length(x) }
lapply(pew_energy_2018, Prop)
# }
Run the code above in your browser using DataLab