data("rl_reg1")
dist_binary(rl_reg1[1,], rl_reg1[2,])
type <- c("string", "string", "numeric", "numeric",
"numeric", "categorical", "ordinal", "numeric", "numeric")
order <- list(education = c("Less than a high school diploma",
"High school graduates, no college", "Some college or associate degree",
"Bachelor's degree only", "Advanced degree"))
dist_col_type_slow(rl_reg1[1,], rl_reg1[2,], col_type = type, order = order)
Run the code above in your browser using DataLab