wine.clm <- clm(rating ~ temp * contact, data = wine)
ref_grid(wine.clm)
# verify that we get the same thing via qdrg:
qdrg(object = wine.clm, ordinal.dim = 5)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.