tests/testthat/test-stan_btordereffect.R

In bpcs: Bayesian Paired Comparison Analysis with Stan

test_that("bpc returns a bpc object the btordereffect model", {
  skip_on_cran()
  test_btorder <- load_testdata('test_btorder')
  m1 <- bpc(
    data = test_btorder,
    player0 = 'player0',
    player1 = 'player1',
    result_column = 'y',
    z_player1 = 'z1',
    model_type = 'bt-ordereffect',
    solve_ties = 'random',
    win_score = 'higher',
    iter = 1000,
    warmup = 300,
    show_chain_messages = F,
    seed = 8484
  )

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

})