R/dgt.R

dgt <-
function (x, mu = 0, sigma = 1, df = stop("no df arg"), log = FALSE) {
    if (log)
        dt((x - mu) / sigma, df = df, log = TRUE) - log(sigma)
    else
         dt((x - mu) / sigma, df = df) / sigma
}
drizopoulos/JMbayes documentation built on Feb. 2, 2021, 12:34 a.m.