tests/testthat/test-ict.test.R

context("Tests list experiment design effect test function")

set.seed(1)

data(affirm)
data(race)

test_that("ict.test works", {
  test.value.affirm <- ict.test(affirm$y, affirm$treat, J = 3, gms = TRUE)
  print(test.value.affirm)
  
  test.value.race <- ict.test(race$y, race$treat, J = 3, gms = TRUE)
  print(test.value.race)
})

Try the list package in your browser

Any scripts or data that you put into this service are public.

list documentation built on June 27, 2022, 1:06 a.m.