tests/testthat/test_ipw_utils.R

context('ipw utils')


test_that(
  "makeTargetGrids returns appropriate estimands",{

    zz <- makeTargetGrids(alphas = c(0.3333, .77,.9))
    fx <- zz$effects
    dfx <- fx[fx$effect=="direct",]

    expect_equal(
      dfx$alpha1_num,
      dfx$alpha2_num
    )

  }
)
BarkleyBG/stabilizedinterference documentation built on May 23, 2019, 8:37 a.m.