R/Q_function_addendo1.R

Defines functions `Q_function_addendo1`

`Q_function_addendo1` <-
function(sigma2omega, n, Sigmastar, B){
        Q_addendo1  <- n*log(det(sigma2omega * Sigmastar)) + sum(diag(solve(sigma2omega * Sigmastar)%*% B))
        return(Q_addendo1)
}

Try the Stem package in your browser

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

Stem documentation built on May 2, 2019, 8:56 a.m.