R/p.R

Defines functions p

p <- function(lambda = 1, .k) {
  num <- .k * log(lambda)
  den <- log(exp(lambda) - 1) + lfactorial(.k)
  return(num - den)
} #RJMCMC poisson prior with default lambda = 1
aashen12/BARS documentation built on Aug. 21, 2020, 2:44 p.m.