round(100*with(GSS, prop.table(table(degree, parentdeg), 2)))
m.GSS <- nestedLogit(degree ~ parentdeg*year,
continuationLogits(c("l.t.highschool", "highschool",
"college", "graduate")),
data=GSS)
car::Anova(m.GSS)
summary(m.GSS)
Run the code above in your browser using DataLab