model <- list(c("license"),c("woman"),c("woman","license","inter"))
comp <- callback_comp(data = mobility1, cluster = "offer",
candid = c("gender","licenses"), callback = "callback", model = model)
reg(comp)
summary(reg(comp))
Run the code above in your browser using DataLab