tests/testthat/test-check_priors.R

In TriDimRegression: Bayesian Statistics for 2D/3D Transformations

context("Priors")
test_that("Priors check", {
  # This should produce no error messages
  expect_equal(check_normal_prior(c(0, 2), "scale"), expected=TRUE)

  # Error: non-numeric data
  expect_error(check_normal_prior(c("0", "2"), "scale"))

  # Error: wrong number of values
  expect_error(check_normal_prior(c(0, 2, 3), "scale"))
  expect_error(check_normal_prior(c(0), "scale"))

  # Error: non-positive variance
  expect_error(check_normal_prior(c(0, -2), "scale"))
  expect_error(check_normal_prior(c(0, 0), "scale"))


  # This should produce no error messages
  expect_equal(check_exponential_prior(2, "sigma"), expected=TRUE)

  # Error: non-numeric data
  expect_error(check_exponential_prior("0", "sigma"))

  # Error: wrong number of values
  expect_error(check_exponential_prior(c(0, 2, 3), "sigma"))

  # Error: non-positive value
  expect_error(check_exponential_prior(0, "sigma"))
  expect_error(check_exponential_prior(-1, "sigma"))
})