R/likelihood_gam.R

In BriceonWiley/comparingCIs.R:

Defines functions likelihood_gam

Documented in likelihood_gam

likelihood_gam <- function(gam, data1, data2) {
  pcubature(
    likelihood_expanded, 0, 1, vectorInterface = TRUE,
    gam = gam, data1 = data1, data2 = data2
  )$integral
}