# create the model
m <- data.frame(event = c("encoding", "delay", "response"),
start_time = c(0, 2.5, 12.5), duration = c(2.5, 10, 5))
# evaluate
df <- flanker
res <- evaluate_model(df, m, tr = 2.5)
Run the code above in your browser using DataLab