get_events <- function(filename,typelist=c('ENDFIX'),fields=c('sttime','entime','gavx','gavy')){
tmp <- .Call('get_events',PACKAGE = 'edfR',filename,typelist,fields)
colnames(tmp) <- fields
as.data.frame(tmp)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.