library(Directional)
library(movMF)
# Data generation
n<-200
mu<-matrix(c(0,0,1,0,0,-1),ncol=3,byrow=TRUE)
k<-c(7,2)
probs<-c(0.85,0.15)
datax<-rmovMF(n,k*mu,alpha=probs)
# Estimation of parameters of a vMF
param<-vmf.mle(datax)
mu0<-param$mu
tau0<-param$kappa
# Selection of the smoothing parameter
kappa <- pi.kappa(datax,mu0,tau0)
Run the code above in your browser using DataLab