postvar <- function(Kmat,Jmat,Cisqrt){ ### get posterior variance pvar <- rowSums((cbind(Kmat,Jmat)%*%Cisqrt)^2) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.