Nothing
test_that("output from pure_error_anova matches expected result", {
model <- lm(mpg ~ hp, data = mtcars)
k <- ols_pure_error_anova(model)
act <- k$lackoffit
exp <- 430.32
expect_equal(round(act, 2), exp)
act <- k$pure_error
exp <- 17.36
expect_equal(round(act, 2), exp)
model <- lm(mpg ~ disp, data = mtcars)
k <- ols_pure_error_anova(model)
act <- k$lackoffit
exp <- 304.28
expect_equal(round(act, 2), exp)
act <- k$pure_error
exp <- 12.88
expect_equal(round(act, 2), exp)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.