Nothing
#test_that("compute_risk works as expected.", {
# val <- compute_risk(0.2, pseudo_pop_covar_test$Y,
# pseudo_pop_covar_test$w, seq(0.2,10,0.2))
# expect_equal(val, 40.44144, tolerance=0.0001)
#})
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.