Nothing
test_that("applying BH via p.adjust or get_bh_threshold should yield the same result",{
set.seed(1)
pv <- c(runif(10000),rbeta(2000,.5,7))
expect_equal(sum(p.adjust(pv, method="BH") <= 0.01), sum(pv <= get_bh_threshold(pv, 0.01)))
})
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.