## File Name: SRM_COVFUN.R
## File Version: 0.06
SRM_COVFUN <- function(LAM, B, PHI, PSI, IB)
{
W <- solve(IB - B)
Wt <- t(W)
val <- LAM %*% W %*% PHI %*% Wt %*% t(LAM)
return(val)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.