adj_resid_likelihood_theta_var_maker {agfh}

Maker Function: Adjusted Residual Likelihood of Latent Variance

Description

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

Usage

  adj_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 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)
  adj.lik <- adj_resid_likelihood_theta_var_maker(X, Y, D)
  adj.lik(0.5)