# \donttest{
#Ex 1. Make up some categorical demographic data
dat = data.frame(pid = c(rep("Rep", 20),
rep("Dem", 20),
rep("Ind", 20)),
gender = c(rep("female", 35),
rep("male", 25)))
#Convert to one-hot encoded data matrix:
onehot_dat = one_hot(dat)
# }
#Ex 2. lalonde data
set.seed(123)
data("lalonde")
# Select a random subset of 500 rows
lalonde_sample <- sample(1:nrow(lalonde), 500, replace = FALSE)
lalonde <- lalonde[lalonde_sample, ]
cat_vars=c("black","hisp","married","nodegr","u74","u75")
onehot_lalonde = one_hot(lalonde[, cat_vars])
Run the code above in your browser using DataLab