tests/testthat/test-my_lm.R

test_that("performs linear regression", {
  expect_type(my_lm(lifeExp ~ gdpPercap, my_gapminder), "double")
  expect_equal(my_lm(lifeExp ~ gdpPercap, my_gapminder)[, 1], lm(lifeExp ~ gdpPercap, my_gapminder)[1][[1]])
})
kobesar/mypackage documentation built on Dec. 21, 2021, 7:40 a.m.