Nothing
mbg <- getExample("M-bias")
mbg.a <- setVariableStatus( mbg, "adjustedNode", "A" )
mbg.z <- setVariableStatus( mbg, "adjustedNode", "Z" )
a2s <- function(adj) sort(unlist(lapply( adj, function(x) paste0(x,collapse=",") ),
use.names=FALSE))
test_that("M bias graph", {
expect_equal(a2s(adjustmentSets( mbg.a )),"A")
expect_equal(a2s(adjustmentSets( mbg.z )),c("A,Z","B,Z"))
})
test_that("CGs", {
expect_equal(length(children(backDoorGraph(
"pdag{ {i j} -> x -> {a -- b -- c -- a } a -> z b -> y x[e] y[o] }"),"x")),0)
})
test_that("pags", {
expect_equal(length(adjustmentSets("dag{ X1->V1->X2->Y ; V1 -> X3 }",
c("X1","X2","X3"),"Y",type="all")),2)
})
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.