Nothing
## Make a print method for class gazepath
print.gazepath <- function(x, ...){
miss <- length(which(is.na(unlist(x[[2]])))) / length(unlist(x[[2]])) * 100
fix <- length(summary(x, fixations_only = T)[,1])
raw <- length(unlist(x[[1]]))
cat(' Fixations were estimated using the', x[[4]], 'method',
'\n', '\n',
round(miss), 'percent of the data points is missing',
'\n',
raw, 'raw data points were classified into', fix, 'fixations',
'\n',
'The plot(gazepath-object, trial_index = trial-number) function can be used to visualize the results',
'\n',
'The summary(gazepath-object) can be used get all fixations')
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.