R/circular-1.R

In mattelisi/mlisi: Miscellaneous R helpers and functions

Defines functions angDiff

Documented in angDiff

#' Circular data - helpers
#'
#' Signed angular difference
#' @export

angDiff <- function(alpha,beta){ 
	diff <- atan2(sin(beta-alpha), cos(beta-alpha))
	invisible(diff)
}