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

## ----echo=FALSE, eval=TRUE, message=FALSE-------------------------------------
library(VWPre)
data(VWdat)

## ----eval= FALSE, echo=TRUE, results='asis'-----------------------------------
# library(VWPre)
# VWdat <- read.table("1000HzData.txt", header = T, sep = "\t", na.strings = c(".", "NA"))

## ----eval= FALSE, echo=TRUE, results='asis'-----------------------------------
# data(VWdat)

## ----eval=TRUE, echo=TRUE, results='asis'-------------------------------------
dat0 <- prep_data(data = VWdat, Subject = "RECORDING_SESSION_LABEL", Item = "itemid")

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(VWdat)
gc()

## ----eval= FALSE, echo=TRUE, results='asis'-----------------------------------
# dat0 <- rm_extra_DVcols(dat0, Keep = c("RIGHT_PUPIL_SIZE", "LEFT_PUPIL_SIZE"))

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat1 <- relabel_na(data = dat0, NoIA = 4)

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat0)
gc()

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
check_ia(data = dat1)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat2 <- create_time_series(data = dat1, Adjust = 100)

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat1)
gc()

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

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

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

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
check_eye_recording(data = dat2)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat3 <- select_recorded_eye(data = dat2, Recording = "R", WhenLandR = "Right")

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat2)
gc()

## ----eval= FALSE, echo=TRUE, results='asis'-----------------------------------
# dat3 <- mark_trackloss(dat3, Type = "Both", ScreenSize = c(1920, 1080))

## ----eval= FALSE, echo=TRUE, results='asis'-----------------------------------
# dat3 <- rm_trackloss_events(dat3, RequiredData = 75)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
check_samplingrate(dat3)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
ds_options(SamplingRate = 1000)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat4 <- bin_prop(dat3, NoIA = 4, BinSize = 20, SamplingRate = 1000)

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat3)
gc()

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
check_samplingrate(dat4)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
check_samples_per_bin(dat4)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat5 <- transform_to_elogit(dat4, NoIA = 4, ObsPerBin = 20)

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat5a <- create_binomial(data = dat4, NoIA = 4, ObsPerBin = 20)

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat4, dat5a)
gc()

## ----eval = FALSE, echo=TRUE, results='asis'----------------------------------
# dat5b <- fasttrack(data = VWdat, Subject = "RECORDING_SESSION_LABEL", Item = "itemid",
# 	EventColumns = c("Subject", "TRIAL_INDEX"), NoIA = 4, Adjust = 100, Recording = "LandR",
#   WhenLandR = "Right", BinSize = 20, SamplingRate = 1000,
#   ObsPerBin = 20, Constant = 0.5, Output = "ELogit")

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
dat6 <- rename_columns(dat5, Labels = c(IA1="Target", IA2="Rhyme", 
                                       IA3="OnsetComp", IA4="Distractor")) 

## ----eval= TRUE, echo=TRUE, results='asis'------------------------------------
colnames(dat6) 

## ----eval=TRUE, echo=FALSE, results='hide'------------------------------------
rm(dat5, dat6)
gc()

## ----eval=FALSE, echo=TRUE, results='asis'------------------------------------
# FinalDat <- dat5 %>%
#   # Select just the columns you want
#   select(Subject, Item, Time, starts_with("IA"), Event, TRIAL_INDEX, Rating, Exp) %>%
#   # Order the data by Subject, Trial, and Time
#   arrange(Subject, TRIAL_INDEX, Time)

## ----eval=FALSE, echo=TRUE, results='asis'------------------------------------
# save(FinalDat, file = "FinalDat.rda", compress = "xz")