tests/testthat/test-lm.R

context("test-lm.R")

test_that("lm creation works", {
  lapply(
    50:100, function(x){
      a <- random_lm(x, 18)
      expect_is(a, "lm")
    }
  )

})

Try the shinipsum package in your browser

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

shinipsum documentation built on May 29, 2024, 2:30 a.m.