tests/testthat/test-validate_posterior_samples.R

context("Validate Posterior Samples")

test_that("validate_posterior_samples fails if the input is not a dataframe", {
  input_list <- list(option_name = c("A", "B", "C"), samples = c(0,1,2))
  expect_error({
    validate_posterior_samples(posterior_samples = input_list)
  })
})

Try the grizbayr package in your browser

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

grizbayr documentation built on Oct. 9, 2023, 5:10 p.m.