# Load some data
data(SYNS)
# Find maximum number of synergies
max_syns <- max(unlist(lapply(SYNS, function(x) x$syns)))
# Save a plot with the first (and only, in this case) trial in the list
pp <- plot_syn_trials(SYNS[[1]],
max_syns = max_syns,
trial = names(SYNS)[1],
dark_mode = TRUE,
line_size = 0.8,
line_col = "tomato1",
sd_col = "tomato4",
show_plot = FALSE
)
Run the code above in your browser using DataLab