findtilt: Find the ends of the lens, and the slope of the line...
In phewson/PhilsAngle: Helps identify lens angles

Description Usage Arguments Examples

View source: R/findtilt.R

Finds the ends of the lens, and the slope of the line connecting them

1	findtilt(mu, ml)

`mu`
`ml`

##---- 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 (mu, ml) 
{
    b <- coef(mu)
    a <- coef(ml)
    x <- rep(0, 2)
    x[1] <- findx(a, b, 1)
    x[2] <- findx(a, b, -1)
    y <- a[1] + a[2] * x + a[3] * x^2
    return(data.frame(x = x, y = y))
  }