R/circular-2.R

In mattelisi/mlisi: Miscellaneous R helpers and functions

Defines functions angMean

Documented in angMean

#' Circular data - helpers
#'
#' Angular mean
#' @export

angMean <- function(v){ 
	atan2(sum(sin(v))/length(v), sum(cos(v))/length(v))
}