tests/testthat/test-simloglm.R

In mneunhoe/simloglm: Simulate Correct Quantities of Interest from Linear Models with Logged Dependent Variables

test_that("simulate() works with a lm object", {
  expect_equal(length(simloglm(lm(
    log(dist) ~ speed, data = cars
  ))$median), 1000)
})

test_that("simulate() works with a lm object and a list scenario", {
  expect_equal(nrow(simloglm(
    lm(log(dist) ~ speed, data = cars), scenario = list(speed = c(5, 10))
  )$median), 1000)
})