R/rmvt.R

Defines functions rmvt

rmvt <- function(n, SqrtSigma, df){
  stopifnot(is.numeric(df), length(df) == 1, df > 0,
            isInteger(n), n > 0, is.numeric(SqrtSigma), is.matrix(SqrtSigma))
  t(t(rmvnorm(reps = n, SqrtSigma = SqrtSigma))/sqrt(rchisq(n, df)/df))
}

Try the distfreereg package in your browser

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

distfreereg documentation built on April 4, 2025, 12:30 a.m.