Nothing
exclusion.restrictions <- function(G) {
G.obs <- observed.graph(G)
topo <- igraph::topological.sort(G.obs)
v <- igraph::get.vertex.attribute(G, "name")[topo]
ex <- lapply(v, function(y) {
pa <- setdiff(parents(y, G.obs, topo), y)
Z <- setdiff(v, union(y, pa))
if (length(Z) > 0) {
Z.pow <- powerset(setdiff(v, union(y, pa)))[-1]
return(list(pa = pa, Z = Z.pow))
} else return(NULL)
})
ex.ind <- !vapply(ex, is.null, logical(1))
v <- v[ex.ind]
ex <- ex[ex.ind]
return(setNames(ex, v))
}
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.