### how do angry facial expressions differ from non-angry ones?
data(emotions_set)
angry.face <- netfacs(
data = emotions_set[[1]],
condition = emotions_set[[2]]$emotion,
test.condition = "anger",
ran.trials = 100,
combination.size = 2
)
conditional.probs <- conditional_probabilities(angry.face)
network_conditional(
netfacs.data = conditional.probs,
min.prob = 0.01,
min.count = 3,
ignore.element = "25",
plot.bubbles = FALSE
)
Run the code above in your browser using DataLab