Nothing
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))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.