R/horizontal.R

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))
}
phewson/PhilsAngle documentation built on May 25, 2019, 2:54 a.m.