test_that("attributes_means", {
skip_if_not_installed("emmeans")
model <- lm(Sepal.Length ~ Species * Sepal.Width, data = iris)
estim <- suppressMessages(estimate_means(model))
expect_identical(attributes(estim)$at, "Species")
expect_identical(attributes(estim)$fixed, NULL)
estim <- suppressMessages(estimate_means(model, fixed = "Sepal.Width"))
expect_identical(attributes(estim)$at, "Species")
expect_identical(attributes(estim)$fixed, "Sepal.Width")
estim <- suppressMessages(estimate_means(model, at = "all"))
expect_identical(attributes(estim)$at, c("Species", "Sepal.Width"))
})
test_that("attributes_contrasts", {
skip_if_not_installed("emmeans")
model <- lm(Sepal.Length ~ Species * Sepal.Width, data = iris)
estim <- suppressMessages(estimate_contrasts(model))
expect_identical(attributes(estim)$contrast, "Species")
expect_identical(attributes(estim)$at, NULL)
expect_identical(attributes(estim)$fixed, NULL)
estim <- suppressMessages(estimate_contrasts(model, fixed = "Sepal.Width"))
expect_identical(attributes(estim)$contrast, "Species")
expect_identical(attributes(estim)$fixed, "Sepal.Width")
expect_identical(attributes(estim)$modulate, NULL)
})
test_that("attributes_link", {
skip_if_not_installed("emmeans")
model <- lm(Sepal.Length ~ Species * Sepal.Width, data = iris)
estim <- estimate_link(model)
expect_identical(attributes(estim)$response, "Sepal.Length")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.