tests/testthat/test-lm1.R

test_that("lm1 works", {
  expect_equal(lm1(mpg ~ disp + wt, data = mtcars)$fitted.values, lm(mpg ~ disp + wt, data = mtcars)$fitted.values)
})
mengqi00/linear1 documentation built on Dec. 21, 2021, 4:57 p.m.