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
}

Try the JMbayes package in your browser

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

JMbayes documentation built on Jan. 9, 2020, 9:07 a.m.