R/amh_posterior.R

In alexanderrobitzsch/LAM: Some Latent Variable Models

## File Name: amh_posterior.R
## File Version: 0.07
amh_posterior <- function( pars, model, prior, data)
{
    #*** evaluate likelihood
    ll <- amh_loglike( model=model, data=data, pars=pars)
    #*** evaluate priors
    priorval <- amh_eval_priors( pars=pars, prior=prior )
    #*** compute posterior
    posteriorval <- ll + priorval
    #--- output
    res <- list( ll=ll, priorval=priorval,
                posteriorval=posteriorval    , pars=pars )
    return(res)
}