#Generate data from a von Mises distribution
data <- rvonmises(n=50, mu=pi, kappa=4)
#Estimate the concentration parameter
s <- sum(sin(data))
c <- sum(cos(data))
mean.dir <- atan(s, c)
kappa <- A1inv(mean(cos(data - mean.dir)))
Run the code above in your browser using DataLab