alignment: Find the baseline alignment (angle) given position of limbus...

In phewson/PhilsAngle: Helps identify lens angles

Description

Uses locator to capture information on baseline orientation of the eye

Usage

alignment(type = "l")

Arguments

type

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (type = "l") 
{
    InputPoints <- locator()
    slope <- lm(InputPoints$y ~ InputPoints$x)
    points(InputPoints$x, InputPoints$y, col = "green")
    text(InputPoints$x, InputPoints$y, type, pos = 1, col = "green")
    mid <- sum(InputPoints$x)/2
    return(list(slope = slope, mid = mid))
  }

phewson/PhilsAngle documentation built on May 25, 2019, 2:54 a.m.