# \donttest{
library(miic)
data(hematoData)
# execute MIIC (reconstruct graph)
miic.res <- miic(
input_data = hematoData, latent = "yes",
n_shuffles = 10, conf_threshold = 0.001
)
# Using igraph
if(require(igraph)) {
g = miic.export(miic.res, "igraph")
plot(g) # Default visualisation, calls igraph::plot.igraph()
# Specifying layout (see ?igraph::layout_)
l <-layout_with_kk(g)
plot(g, layout=l)
# Override some graphical parameters
plot(g, edge.curved = .2)
plot(g, vertex.shape="none", edge.color="gray85", vertex.label.color="gray10")
}
# }
Run the code above in your browser using DataLab