Nothing
context("test checkInteraction
function")
test_that("whether the checkInteraction function gives correct output using ICAapp data",{
data(ICAapp)
final.dat <- checkData(Y = "dapprp", T1 = "trt1", T2 = "trt2", M = "immorp", data = ICAapp)
expect_equal(checkInteraction(final.dat,sigLevel = 0.05),0)
final.dat <- checkData(Y = "nvotep", T1 = "trt1", T2 = "trt2", M = "immorp", data = ICAapp)
expect_equal(checkInteraction(final.dat,sigLevel = 0.05),1)
})
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.