script/CreateCytojs.R

In Xia-Zhang/MixedGraphs: Mixed Graphical Models

library("MixedGraphs")

X <- lapply(1 : 3, function(x){matrix(rnorm(12), nrow = 4)})
crf_structure = matrix(c(1, 0, 1, 1, 1, 1, 0, 0, 1), 3, 3)
brail_control <- list(B = 5, tau = 0.6)
G <- MixedGraph(X, crf_structure, brail_control = brail_control)
plot(G, method = "cytoscape.js", out.file = "./docs/cytoscapejs-example.html")