R/rotate.R

Defines functions rotate

rotate <- function(x1,x2,y1,y2)
{
  a <- atan((y2-y1)/(x2-x1))
  a <- (a * 180) / (pi)
  a <- a*(-1)
  return(a)
}

Try the WindCurves package in your browser

Any scripts or data that you put into this service are public.

WindCurves documentation built on May 1, 2022, 9:05 a.m.