R/ltpdf.R

ltpdf <- function(s, gamma0, cc)
{
    x <- exp(-gamma0*(psi_complex(cc+s)-psi_complex(cc)))
    x
}
siamakz/BNPseq documentation built on May 15, 2019, 4:28 p.m.