R/likelihood_p.R

In BriceonWiley/IntegratedLikelihood.R:

Defines functions likelihood_p

Documented in likelihood_p

likelihood_p <- function(p, data) {
  pcubature(
    likelihood_orig_p, lowerLimit = c(0, 0), upperLimit = c(1, 1),
    p = p, data = data, vectorInterface = TRUE
  )$integral
}