unidiff <- gnm(Freq ~ educ*orig + educ*dest +
Mult(Exp(educ), orig:dest), family = poisson,
data = yaish, subset = (dest != 7))
print(unidiff$deviance, digits = 10)
getContrasts(unidiff, grep("[.]educ", names(coef(unidiff))))
Add the following code to your website.
Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.