context("step_backward")
test_that("backward elimination output matches the expected result", {
model <- lm(y ~ x1 + x2 + x3 + x4, data = cement)
k <- ols_step_backward_p(model)
expect_equal(k$steps, 1)
expect_equal(k$removed, c("x3"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.