tests/testthat/test_prep_stan_data.R

context("Testing prep_stan_data")

testthat::skip_on_cran()
testthat::test_that(

	desc = "prep_stan_data errors",

	code = {
		model <- make_model('X->Y')
		data  <-  collapse_data(make_data(model, n = 6), model)
		expect_error(prep_stan_data(model, data[, 1:2]))
	}
)

Try the CausalQueries package in your browser

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

CausalQueries documentation built on June 22, 2024, 6:50 p.m.