SelectTrial <- function(dat, start = start, stop = stop) {
dat$msg <- dat$msg[dat$msg$time >= start & dat$msg$time <= stop, ]
dat$samp <- dat$samp[dat$samp$time >= start & dat$samp$time <= stop, ]
dat$event <- dat$event[dat$event$time >= start & dat$event$time <= stop, ]
return(dat)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.