notes/demo.R

In marioangst/integrateR: Motif Analysis in Multi-Level Networks

library(motifr)

# closed and open triangles, one node on level 0, two nodes on level 1

motifs <- list("1,2[I.C]", "1,2[II.C]")
motif <- c("1,2[II.C]") # closed triangle

count_motifs(ml_net, "1,2[II.C]")

count_motifs(ml_net, motifs = motifs, lvl_attr = "sesType")
motifs_distribution(ml_net, motifs = motifs)
motif_summary(ml_net)
exemplify_motif(ml_net, motif = motif)
show_motif(ml_net, motif = motif)
show_motif(ml_net, motif = motif, label = TRUE)

plot_mnet(net = dummy_net, lvl_attr = "sesType")
g <- intergraph::asIgraph(dummy_net)
plot_mnet(g, lvl_attr = "sesType")

simulate_baseline(ml_net, motifs = motifs, n = 20, model = "actors_choice")
compare_to_baseline(ml_net, motifs = motifs, n = 10)
compare_to_baseline(ml_net, motifs = motifs, n = 500)

compare_to_baseline(dummy_net, motifs = list("1,2[I.C]", "1,2[II.C]"))

identify_gaps(ml_net, motif = motif)
critical_dyads(ml_net, motif = motif)

plot_gaps(ml_net, motif = motif, label = TRUE, cutoff = 5, subset_graph = "partial")