R/inAngle.R

Defines functions inAngle

Documented in inAngle

inAngle <-
function(a,b)
{ # internally used by smoothArc();
  rv<-b-a;
  if(abs(rv)>pi) rv<-sign(rv)*(-1)*(2*pi-abs(rv));
  return(rv);
}

Try the dagR package in your browser

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

dagR documentation built on Oct. 9, 2022, 5:06 p.m.