data(samples)
head(samples)
fixations <- detect.fixations(samples)
head(fixations)
## Not run:
# first.trial <- samples$trial[1]
# first.trial.samples <- subset(samples, trial==first.trial)
# first.trial.fixations <- subset(fixations, trial==first.trial)
# with(first.trial.samples, plot(x, y, pch=20, cex=0.2, col="red"))
# with(first.trial.fixations, points(x, y, cex=1+sqrt(dur/10000)))
# ## End(Not run)
Run the code above in your browser using DataLab