model <- list(c("license"),c("woman"),c("woman","license","inter"))
comp <- callback_comp(mobility1,"offer",c("gender","licenses"),"callback",model)
x <- comp$aux_boole
y <- comp$aux_coef
omega <- comp$aux_vcov
str(reg_als(x,y,omega))
Run the code above in your browser using DataLab