R/ELBO.R

In bmgaldo/DEBBI: Differential Evolution-Based Bayesian Inference

#' ELBO
#' @description returns a Monte Carlo or quasi-Monte Carlo estimate of the ELBO
#' @param lambda samples of theta from approximating distribution Q
#' @param LogPostLike  log posterior likelihood function
#' @param control_pars list of algo control parameters
#' @param S number of samples to use for the approximation
#' @param ... additional parameters for LogPostLike
#' @noRd
ELBO <- function(lambda, LogPostLike, control_pars, S, ...) {
  # Monte Carlo approximation ELBO
  out <- KLHat(lambda, LogPostLike, control_pars, S, ...) * -1
  return(out)
}