Last chance! 50% off unlimited learning
Sale ends in
It calculates the logarithm of the normalising constant of the Fisher-Bingham distribution.
fb.saddle(gam, lam)
A numeric vector containing the parameters of the Fisher part.
All the eigenvalues of the Bingham part. Not just the non zero ones.
A list including:
The first order approximation
The second order approximation
The third order approximation
It calculate the three approximations given by Kume and Wood (2005) and it uses the Fisher-Bingham parametrization of that paper.
Kume Alfred and Wood Andrew T.A. (2005). Saddlepoint approximations for the Bingham and Fisher-Bingham normalizing constants. Biometrika, 92(2):465-476
# NOT RUN {
p <- 3 ; k <- 1
0.5 * p * log(2 * pi) - (p/2 - 1) * log(k) + log( besselI(k, p/2 - 1, expon.scaled = TRUE) ) + k
## normalising constant of the
## von Mises-Fisher distribution
fb.saddle( c(0, k, 0), c(0, 0, 0) ) ## saddlepoint approximation
## Normalising constant of the Kent distribution
fb.saddle( c(0, 10, 0), c(0, -2, 2) )
kent.logcon(10, 2)
# }
Run the code above in your browser using DataLab