R/entropy.wts.R

In HPbayes: Heligman Pollard mortality model parameter estimation using Bayesian Melding with Incremental Mixture Importance Sampling

Defines functions entropy.wts

Documented in entropy.wts

entropy.wts <-
function(w) 
{
    n <- length(w)
    num <- w * log(w)
    den <- log(n)
    ans <- -sum(num/den, na.rm = TRUE)
    return(ans)
}

Try the HPbayes package in your browser