R/mix-circular-4.R

In mattelisi/mlisi: Miscellaneous R helpers and functions

Defines functions k2SD

Documented in k2SD

#' Circular-mixture
#'
#' transform concentration parameter k into a standard deviation
#' @export

k2SD <- function(k)
{
	sqrt(-2 *log(besselI(k, nu=1)/besselI(k, nu=0)))
}