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)
z <- reg(comp)
summary(z)
Run the code above in your browser using DataLab