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