context("Testing error message from profile.clm")
expect_warning(
fm2 <- clm(rating ~ contact, scale=~contact, nominal=~contact,
data=wine)
, "\\(1\\) Hessian is numerically singular")
expect_error(profile(fm2)
, "Cannot get profile when vcov\\(fitted\\) contains NAs")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.