R/pJ2.R

Defines functions pJ2

Documented in pJ2

pJ2 <- function(gl.ini, p){
  a <-p
  dJ3 <- function(gl.ini){dJ2(gl.ini,a)}
  J1I <- integrate(dJ3,0,gl.ini)$value/integrate(dJ3,0,Inf)$value
  return(J1I)
}

Try the Bayesiantreg package in your browser

Any scripts or data that you put into this service are public.

Bayesiantreg documentation built on May 29, 2024, 6:44 a.m.