`internal.covGO` <-
function(pGO, pij. = secondOrderMarginals(pGO)){
pi. <- diag(pij.)
return(pij. - pi. %o% pi.)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.