TrialTime <- function(tmp) {
tmp$samp$time <- tmp$samp$time - tmp$msg$time[1] + 1
tmp$event$time <- tmp$event$time - tmp$msg$time[1] + 1
tmp$msg$time <- tmp$msg$time - tmp$msg$time[1] + 1
return(tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.