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")
    }
  )

})
ThinkR-open/shinipsum documentation built on Feb. 10, 2024, 2:16 a.m.