data("Womenlf", package = "carData")
m <- nestedLogit(partic ~ hincome + children,
dichotomies = logits(work=dichotomy("not.work",
working=c("parttime", "fulltime")),
full=dichotomy("parttime", "fulltime")),
data=Womenlf)
# one-line summaries
broom::glance(m)
# coefficients and tests
broom::tidy(m)
Run the code above in your browser using DataLab