tests/testthat/test_get_predict.R

# Text to Get predicted values
test_that("It calculates assumptions correctly", {

  expect_equal(get_predict(lm_model <- lm(mpg ~ wt + hp, data = mtcars), mtcars, mtcars$mpg, n = 3),
               get_predict(lm_model <- lm(mpg ~ wt + hp, data = mtcars), mtcars, mtcars$mpg, n = 3))
})

Try the RegAssure package in your browser

Any scripts or data that you put into this service are public.

RegAssure documentation built on Sept. 8, 2023, 5:36 p.m.