tests/testthat/test_make_confounders.R

In CausalQueries: Make, Update, and Query Binary Causal Models

testthat::test_that(

	desc = "Set confounds",

	code = {
		## passer function
		model_1 <- make_model('X -> Y') %>%
			set_confound('Y <-> X')
		model_2 <- make_model('X -> Y') %>%
		  set_confound('Y <-> X')
		expect_identical(model_1, model_2)
	}
)


testthat::test_that(

  desc = "Confound errors",

  code = {
    ## passer function
    model_1 <- make_model('X -> M -> Y') %>%
      set_confound(list('Y <-> X','Y <-> M'))
    model_2 <- make_model('X -> M -> Y') %>%
      set_confound(list('Y <-> X','Y <-> M'))
    expect_identical(model_1, model_2)
  }
)