## ----global_options, include=FALSE---------------------------------------
knitr::opts_chunk$set(fig.width=6, fig.height=4, warning=FALSE)

## ---- echo=FALSE, eval=TRUE, message=FALSE-------------------------------
library(PupilPre)
data(Pupildat)

## ---- eval= TRUE, echo=FALSE, results='hide', message=FALSE--------------
library(PupilPre)
data(Pupildat)
aligndat <- ppl_prep_data(data = Pupildat, Subject = "RECORDING_SESSION_LABEL", Item = "item")

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
check_all_msgs(data = aligndat)

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
check_msg_time(data = aligndat, Msg = "TIMER_1")

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
aligned1 <- align_msg(data = aligndat, Msg = "TIMER_1")

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
check_msg_time(data = aligned1, Msg = "TIMER_1")

## ---- eval= FALSE, echo=TRUE, results='asis'-----------------------------
#  MSGTime <- check_msg_time(data = aligned1, Msg = "TIMER_1", ReturnData = TRUE)

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
aligned2 <- create_time_series(data = aligned1, Adjust = 0)

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
check_time_series(data = aligned2)

## ---- eval= TRUE, echo=TRUE, results='asis'------------------------------
check_msg_time(data = aligned2, Msg = "TIMER_1")