context("test-add_coef_sd")
test_that("add_coef_sd creates output without error/warning: lm", {
lm_ex <-
sm_regression(
data = mtcars,
method = "lm",
formula = mpg ~ am ,
weighting_var = "hp",
lambda = 1,
newdata = data.frame(hp = c(150, 200))
) %>%
add_ci(n = 10) %>%
add_coef_sd()
expect_error(lm_ex, NA)
expect_warning(lm_ex, NA)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.