# prepare model specs
model3 <- data.frame(event = c("encoding", "delay", "response"),
start_time = c(0, 2.65, 12.5),
duration = c(2.65, 9.85, 3))
Run the code above in your browser using DataLab