Nothing
context('generalTestBF')
data(puzzles)
test_that('generalTestBF works', {
bf <- generalTestBF(RT ~ shape*color*ID, whichRandom="ID", data = puzzles)
expect_that(bf, is_a("BFBayesFactor"))
expect_that(length(bf), is_equivalent_to(18))
})
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.