context("formula")
test_that("with adjustment", {
expect_equal(formula(new_model("y", "x", "z", NULL, "f")), y ~ x + z)
})
test_that("without adjustment", {
expect_equal(formula(new_model("y", "x", NULL, NULL, "f")), y ~ x)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.