Nothing
causal.parents <- function(node, vi, G, G.obs, topo) {
G.vi <- igraph::induced.subgraph(G, vi)
cc <- c.components(G.vi, topo)
t <- Find(function(x) node %in% x, cc)
pa.t <- parents(t, G.obs)
pa <- setdiff(pa.t, node)
pa <- topo[which(topo %in% pa)]
return(pa)
}
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.