data(emotions_set)
emo.faces <- netfacs_multiple(
data = emotions_set[[1]],
condition = emotions_set[[2]]$emotion,
duration = NULL,
ran.trials = 10, # only for example
control = NULL,
random.level = NULL,
combination.size = 2
)
emo.nets <- multiple_netfacs_network(emo.faces, min.count = 5)
multiple_network_plot(emo.nets)
Run the code above in your browser using DataLab