```
context("linear.mod")
test_that("linear.mod throws an error when the input data does not contain the response vector", {
data(red_train)
expect_error(linear.mod(dat = red_train[ , 1:2]),
"The input data should include the response.")
})
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.