tests/testthat/test-stan_btU.R

In bpcs: Bayesian Paired Comparison Analysis with Stan

test_that("bpc returns a bpc object the btU model", {
  skip_on_cran()
  test_btU <- load_testdata('test_btU')
  m1 <- bpc(
    data = test_btU,
    player0 = 'player0',
    player1 = 'player1',
    result_column = 'y',
    cluster = 'cluster',
    model_type = 'bt-U',
    solve_ties = 'random',
    win_score = 'higher',
    iter = 2000,
    warmup = 500,
    show_chain_messages = F,
    seed=8484
  )

  expect_s3_class(m1, 'bpc')
  expect_no_error(summary(m1))
})