tests/testthat/test-outcome_regression.R

In audreyrenson/didgformula: The difference-in-differences g-formula

test_that("outcome regression pipeline returns results", {
  Tt=5
  N=1e3
  Beta = generate_parameters(Tt=Tt)
  df <- generate_data(N=N, Tt=Tt, Beta = Beta)
  or_result = or_pipeline(df,
                          yt_formula = '~L{t}',
                          ytmin1_formula='~L{t-1}',
                          l_formula =  '~1',
                          Tt=5,
                          nreps=1e3)
  expect_false( any(is.na(or_result)) )
})