MCMCSO3(x, type, S0, kappa0, tuneS, tuneK, burn_in,
m = 5000) ## S3 method for class 'SO3':
MCMCSO3(x, type, S0, kappa0, tuneS, tuneK,
burn_in, m = 5000)
## S3 method for class 'Q4':
MCMCSO3(x, type, S0, kappa0, tuneS, tuneK,
burn_in, m = 5000)
Bingham MA, Nordman DJ and Vardeman SB (2010). "Finite-sample investigation of likelihood and Bayes inference for the symmetric von Mises-Fisher distribution." Computational Statistics & Data Analysis, 54(5), pp. 1317-1327.
Rs<-ruars(20,rcayley,kappa=4)
draws<-MCMCSO3(Rs,type='Cayley',S0=mean(Rs),kappa0=2,tuneS=39,tuneK=.8,burn_in=100,m=5000)
Run the code above in your browser using DataLab