R/mix-circular-1.R

#' Circular-mixture
#'
#' Density of Von Mises distributionlapse rate
#' @export

dvonMises <- function (x,mu=0,k=10){ 
	(1/(2*pi*besselI(k, nu=0)))*exp(k*cos(x-mu))
}
mattelisi/mlisi documentation built on Oct. 13, 2019, 5:59 p.m.