resid_likelihood_theta_var_maker {agfh}

Maker Function: Residual Likelihood of Latent Variance

Description

A maker function that returns a function. The returned function is the (non-adjusted) residual likelihood of the data for a given (latent) variance, from Yoshimori & Lahiri (2014).

Usage

  resid_likelihood_theta_var_maker(X, Y, D)

Arguments

X

observed independent data to be analyzed

Y

observed dependent data to be analyzed

D

known precisions of response Y

Value

Returns the (non-adjusted) residual likelihood as a function of the variance term in the latent model.

Source

Marten Thompson [e-mail]

Examples

  X <- matrix(1:10, ncol=1)
  Y <- 2*X + rnorm(10, sd=1.1)
  D <- rep(1, 10)
  resid.lik <- resid_likelihood_theta_var_maker(X, Y, D)
  resid.lik(0.5)