R/tau.u.R

Defines functions tau.u

Documented in tau.u

tau.u = function(nu, a0, b0){
  K = length(nu)
  a = a0 + K - 1
  b = b0 - sum(log(1-nu[-K]))

  return(rgamma(1, a, b))
}

Try the BHTSpack package in your browser

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

BHTSpack documentation built on Feb. 8, 2021, 5:07 p.m.