ComputeDur <- function(dat, trial) {
dat$item[[trial]]$fix$dur <- dat$item[[trial]]$fix$stop -
dat$item[[trial]]$fix$start + 1
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.