R/distance2point.R

distance2point <-
function( x, y, viewerDistance, viewerHeight, resolutionX, resolutionY, screenWidth, screenHeight ) {
    
    centerX <- screenWidth / 2
    centerY <- screenHeight / 2 - viewerHeight
    
    targetX <- x / resolutionX * screenWidth
    targetY <- y / resolutionY * screenHeight
    
    dX <- targetX - centerX
    dY <- targetY - centerY
    
    screenDistance <- sqrt( dX^2 + dY^2 )
    
    sqrt( ( viewerDistance^2 + screenDistance^2) )
    
}

Try the eyetracking package in your browser

Any scripts or data that you put into this service are public.

eyetracking documentation built on May 2, 2019, 11:06 a.m.