tests/testthat/test-08-errors.R

In haziqjamil/iprobit: Binary and Multinomial Probit Regression with I-priors

# context("Errors")
#
# test_that("Fit factors only", {
#
#   dat <- gen_mixture(n = 10)
#   expect_error(iprobit(as.numeric(dat$y), dat$X))
#
# })
#
# test_that(">3-way interactions", {
#
#   data(iris)
#   expect_error(iprobit(Species ~ . ^ 3, iris))
#
# })