plotlens: Plot the line joining lens ends, and return the angle
In phewson/PhilsAngle: Helps identify lens angles

Description Usage Arguments Examples

View source: R/plotlens.R

Plot the line joining lens ends, and return the angle

1	plotlens(m1, m2)

`m1`
`m2`

##---- 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 (m1, m2) 
{
    endoflens <- findtilt(m1, m2)
    lensslope <- lm(y ~ x, data = endoflens)
    abline(lensslope, col = "blue", lty = 3)
    points(endoflens, pch = 3, col = "blue")
    return(anglefinder(lensslope))
  }