Nothing
test_that("bpc returns a bpc object the btgeneralized model", {
skip_on_cran()
test_bt <- load_testdata('test_bt')
test_predictors <- load_testdata('test_predictors')
m1 <- bpc(
data = test_bt,
player0 = 'player0',
player1 = 'player1',
result_column = 'y',
model_type = 'bt-generalized',
predictors = test_predictors,
solve_ties = 'none',
iter = 1000,
warmup = 300,
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.