tests/testthat/test-generate_parameters.R

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

test_that("parameter dimensions are correct", {
  Tt = 10
  Beta = generate_parameters(Tt, range_ymeans = qlogis(c(0.01, 0.05)), check_CDF=TRUE)

  check_dimensions <- function(Beta, Tt) {
    expect_equal(length(Beta$U), 1)
    expect_equal(dim(Beta$A), c(Tt + 1, 5))
    expect_equal(dim(Beta$L), dim(Beta$W))
    expect_equal(dim(Beta$Y), c(Tt + 1, 6))
  }

  check_dimensions(Beta, Tt)
})