data(sanction)
formulae <- list(import ~ coop + cost + target,
export ~ coop + cost + target)
fml <- parse.formula(formulae, model = "bivariate.logit")
D <- model.frame(fml, data = sanction)
Run the code above in your browser using DataLab