# NOT RUN {
#Use the NHSR stranded dataset
df <- NHSRdatasets::stranded_data
#Create a function to select categorical variables
sep_categorical <- function(df){
cats <- df %>%
dplyr::select_if(is.character)
return(cats)
}
cats <- sep_categorical(df) %>%
dplyr::select(-c(admit_date))
#Dummy encoding
columns_vector <- c(names(cats))
dummy_encodings <- dummy_encoder(cats, columns_vector)
glimpse(dummy_encodings)
# }
Run the code above in your browser using DataLab