g_graphicalMCP <- random_graph(5)
if (requireNamespace("gMCP", quietly = TRUE)) {
g_gMCP <- as_graphMCP(g_graphicalMCP)
all.equal(g_graphicalMCP, as_initial_graph(g_gMCP))
}
if (requireNamespace("igraph", quietly = TRUE)) {
g_igraph <- as_igraph(g_graphicalMCP)
all.equal(g_graphicalMCP, as_initial_graph(g_igraph))
}
Run the code above in your browser using DataLab