# marginalLikelihood: Get the marginal likelihood of a "BayesianBrick" object In bbricks: Bayesian Methods and Graphical Model Structures for Statistical Modeling

## Description

This is a generic function that will generate the marginal likelihood of a set of observations conditioned on a given "BayesianBrick" object. i.e. for the model structure:

theta|gamma \sim H(gamma)

x|theta \sim F(theta)

Marginal likelihood is p(x|gamma), p() is the probability density/mass function for continuous/discrete x. For a given Bayesian bricks object obj and a sample set x, `marginalLikelihood()` will calculate the marginal likelihood for different model structures:

#### class(obj)="LinearGaussianGaussian"

Where

x \sim Gaussian(A z + b, Sigma)

z \sim Gaussian(m,S)

`marginalLikelihood()` will return p(x|m,S,A,b,Sigma) See `?marginalLikelihood.LinearGaussianGaussian` for details.

#### class(obj)="GaussianGaussian"

Where

x \sim Gaussian(mu,Sigma)

mu \sim Gaussian(m,S)

Sigma is known. `marginalLikelihood()` will return p(x|m,S,Sigma) See `?marginalLikelihood.GaussianGaussian` for details.

#### class(obj)="GaussianInvWishart"

Where

x \sim Gaussian(mu,Sigma)

Sigma \sim InvWishart(v,S)

mu is known. `marginalLikelihood()` will return p(x|mu,v,S) See `?marginalLikelihood.GaussianInvWishart` for details.

#### class(obj)="GaussianNIW"

Where

x \sim Gaussian(mu,Sigma)

Sigma \sim InvWishart(v,S)

mu \sim Gaussian(m,Sigma/k)

`marginalLikelihood()` will return p(x|m,k,v,S) See `?marginalLikelihood.GaussianNIW` for details.

#### class(obj)="GaussianNIG"

Where

x \sim Gaussian(X beta,sigma^2)

sigma^2 \sim InvGamma(a,b)

beta \sim Gaussian(m,sigma^2 V)

X is a row vector, or a design matrix where each row is an obervation. `marginalLikelihood()` will return p(x,X|m,V,a,b) See `?marginalLikelihood.GaussianNIG` for details.

#### class(obj)="CatDirichlet"

Where

x \sim Categorical(pi)

pi \sim Dirichlet(alpha)

`marginalLikelihood()` will return p(x|alpha) See `?marginalLikelihood.CatDirichlet` for details.

#### class(obj)="CatDP"

Where

x \sim Categorical(pi)

pi \sim DirichletProcess(alpha)

`marginalLikelihood()` will return p(x|alpha) See `?marginalLikelihood.CatDP` for details.

## Usage

 `1` ```marginalLikelihood(obj, ...) ```

## Arguments

 `obj` A "BayesianBrick" object used to select a method. `...` further arguments passed to or from other methods.

## Value

numeric, the marginal likelihood

`marginalLikelihood.LinearGaussianGaussian` for Linear Gaussian and Gaussian conjugate structure, `marginalLikelihood.GaussianGaussian` for Gaussian-Gaussian conjugate structure, `marginalLikelihood.GaussianInvWishart` for Gaussian-Inverse-Wishart conjugate structure, `marginalLikelihood.GaussianNIW` for Gaussian-NIW conjugate structure, `marginalLikelihood.GaussianNIG` for Gaussian-NIG conjugate structure, `marginalLikelihood.CatDirichlet` for Categorical-Dirichlet conjugate structure, `marginalLikelihood.CatDP` for Categorical-DP conjugate structure ...