R/likelihood_ratio_phi.R

In BriceonWiley/IntegratedLikelihood.R:

Defines functions likelihood_ratio_phi

Documented in likelihood_ratio_phi

likelihood_ratio_phi <- function(phi, H_1, data, crit, closed) {
  if (closed) H_0 <- likelihood_phi_closed(phi, data)
  else H_0 <- likelihood_phi(phi, data)
  -2 * log(H_0 / H_1) - crit
}