# NOT RUN {
stimuli <- demo_stim() |>
lapply(function(stim) {
# remove template lines
stim$lines <- NULL
return(stim)
})
class(stimuli)
# }
# NOT RUN {
plot(stimuli) # error
# }
# NOT RUN {
s <- as_stimlist(stimuli)
class(s)
plot(s)
# }
Run the code above in your browser using DataLab