R/rMVN.r

In KironmoyDas/STAT0035_GJRM: Generalised Joint Regression Modelling

Defines functions rMVN

Documented in rMVN

rMVN <- function(n, mean, sigma){
            L  <- mroot(sigma)
            lL <- ncol(L)
            t(mean + L%*%matrix(rnorm(lL*n), lL, n)) 
}