data(emotions_set)
angry.face <- netfacs(
data = emotions_set[[1]],
condition = emotions_set[[2]]$emotion,
test.condition = "anger",
ran.trials = 10,
combination.size = 2
)
anger.net <- netfacs_network(
netfacs.data = angry.face,
link = "unweighted",
significance = 0.01,
min.count = 1
)
network_plot(anger.net,
title = "Angry Faces",
clusters = FALSE,
plot.bubbles = TRUE)
Run the code above in your browser using DataLab