data-raw/clean_titanic.R

# Clean Titanic data

library(dplyr)

titanic <- Titanic %>%
  as.data.frame() %>%
  reshape::untable(., num = .$Freq) %>%
  as_data_frame() %>%
  select(-Freq)

titanic

devtools::use_data(titanic)
tklebel/crosstabr documentation built on May 31, 2019, 3:43 p.m.