Nothing
`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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.