R/horizontal.R

In phewson/PhilsAngle: Helps identify lens angles

Defines functions horizontal

Documented in horizontal

horizontal <-
function(microns=2000){
  arrowlength <- locator()
  arrow <- max(arrowlength$x)-min(arrowlength$x)
  runits <- microns / arrow
  return(list(runits=runits))
}