data-raw/Italian.R

In beanumber/testpackage: This Will Be TBD

## code to prepare `Italian` dataset goes here
library(janitor)
Italian <- readr::read_csv("http://gattonweb.uky.edu/sheather/book/docs/datasets/nyc.csv")
Italian <- clean_names(Italian)
Italian <- Italian %>% dplyr::select(-case)
Italian$east <- factor(Italian$east, labels = c("West", "East"))
usethis::use_data(Italian, overwrite = TRUE)