set.seed(1)
data(yaish)
## Fit the "UNIDIFF" mobility model across education levels -- see ?yaish
unidiff <- gnm(Freq ~ educ*orig + educ*dest +
Mult(Exp(educ), orig:dest),
ofInterest = "[.]educ", family = poisson,
data = yaish, subset = (dest != 7))
## Examine the education multipliers (differences on the log scale):
unidiffContrasts <- getContrasts(unidiff, ofInterest(unidiff))
plot(unidiffContrasts,
main = "Unidiff multipliers (log scale): intervals based on
quasi standard errors",
xlab = "Education level", levelNames = 1:5)
Run the code above in your browser using DataLab