# NOT RUN {
data( "SimData" )
### codePasses calculates first and second passes
## if a single AOI column is provided
# by name
codePasses( data = SimData, AOI = "AOI" )
# by column number
codePasses( data = SimData, AOI = 5 )
## and if multiple AOI columns are provided
# by name
resultA <- codePasses( data = SimData,
AOI = c( "AOI1", "AOI2", "AOI3" ) )
resultA
# by number
codePasses( data = SimData, AOI = 2:4 )
## \code{fix_min} influences how many fixations are needed in an AOI
## independent of any fixations in between.
resultB <- codePasses( data = SimData,
AOI = c( "AOI1", "AOI2", "AOI3" ), fix_min = 1 )
data.frame( fix_min3 = resultA, fix_min1 = resultB )
rm( resultA, resultB )
### it also calculates forward and backward first passes if the x and y
### coordinates of the fixations are provided and \code{rereading} is \code{TRUE}
resultA <- codePasses( data = SimData, AOI = "AOI",
rereading = TRUE, fpx = "xcoord", fpy = "ycoord",
fix_size = 20 )
resultA
# and allows for different coordinate origins
resultB <- codePasses( data = SimData, AOI = "AOI", rereading = TRUE,
fpx = "xcoord", fpy = "ycoord", origin = "bottomLeft",
fix_size = 20 )
data.frame( topLeft = resultA, bottomLeft = resultB )
## mind that fix_size can influence the results
resultB <- codePasses( data = SimData, AOI = "AOI",
rereading = TRUE, fpx = "xcoord", fpy = "ycoord",
fix_size = 10 )
data.frame( fix_size20 = resultA, fix_size10 = resultB )
# }
Run the code above in your browser using DataLab