Fused Kullback-Leibler divergence for sets of distributions
Function calculating the Kullback-Leibler divergence between two sets of multivariate normal distributions. In other words, it calculates a weigthed mean of Kullback-Leibler divergences between multiple paired normal distributions.
KLdiv.fused(MtestList, MrefList, StestList, SrefList, ns, symmetric = FALSE)
MtestList |
A |
MrefList |
A |
StestList |
A |
SrefList |
A |
ns |
a |
symmetric |
a |
Function returns a numeric representing the (optionally
symmetric) fused Kullback-Leibler divergence.
Anders Ellern Bilgrau, Wessel N. van Wieringen, Carel F.W. Peeters <cf.peeters@vumc.nl>
# Create some toy data n <- c(40, 60, 80) p <- 10 Stest <- replicate(length(n), diag(p), simplify = FALSE) Sref <- createS(n, p = p) KLdiv.fused(StestList = Stest, SrefList = Sref, ns = n, symmetric = FALSE) KLdiv.fused(StestList = Stest, SrefList = Sref, ns = n, symmetric = TRUE)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.