R/calc_param_logprior.R

In fintzij/stemr: Stochastic Epidemic Model Simulation and Estimation

#' Return the log prior density over all parameter blocks
#'
#' @param param_blocks list of parameter blocks
#'
#' @return log prior density
#' @export
calc_params_logprior <- function(param_blocks) {
    return(sum(sapply(param_blocks, "[[", "log_pd")))
}