# \donttest{
data(emotions_set)
emo.faces <- netfacs_multiple(
data = emotions_set[[1]],
condition = emotions_set[[2]]$emotion,
ran.trials = 10,
combination.size = 2
)
# calculate element specificity
spec <- specificity(emo.faces)
overlap <- overlap_network(spec,
min.prob = 0.01,
min.count = 3,
significance = 0.01,
specificity = 0.5,
ignore.element = "25",
clusters = TRUE,
plot.bubbles = TRUE)
# }
Run the code above in your browser using DataLab