R/Q_function_addendo2.R

Defines functions `Q_function_addendo2`

`Q_function_addendo2` <-
function(C0, m_0, P_0_n, y_0_n) {
        Q_addendo2 <- log(det(C0)) + sum(diag( solve(C0) %*% (P_0_n + (y_0_n - m_0) %*% t((y_0_n - m_0))) ))
        return(Q_addendo2)
}

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.