Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library("igraph")
library("dagitty")
## ----setup--------------------------------------------------------------------
library("dosearch")
## ----eval = FALSE-------------------------------------------------------------
# dosearch(
# data, query, graph,
# transportability = NULL, selection_bias = NULL, missing_data = NULL,
# control = list()
# )
## -----------------------------------------------------------------------------
data <- "
P(W)
P(Y|X)
P(Z|do(X),W)
"
## -----------------------------------------------------------------------------
data <- list(
"P(W)",
"P(Y|X)",
"P(Z|do(X),W)"
)
## -----------------------------------------------------------------------------
query <- "P(Y|do(X),W)"
## -----------------------------------------------------------------------------
query <- c(Y = 0, X = 1, W = 2)
## -----------------------------------------------------------------------------
data <- list(
c(W = 0),
c(Y = 0, X = 2),
c(Z = 0, X = 1, W = 2)
)
## -----------------------------------------------------------------------------
graph <- "
X -> Y
Z -> X
Z -> Y
X <-> Y
"
## -----------------------------------------------------------------------------
library("igraph")
graph <- graph.formula(X -+ Y, Z -+ X, Z -+ Y, X -+ Y, Y -+ X)
graph <- set_edge_attr(graph, "description", 4:5, "U")
## -----------------------------------------------------------------------------
library("dagitty")
graph <- dagitty("dag{X -> Y; Z -> X; Z -> Y; X <-> Y}")
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.