# 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))
#
# })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.