Nothing
covMat.mcemGLMM <- function(object, ...) {
kP <- ncol(object$x)
fMat <- solve(object$iMatrix)
fMat <- fMat[1:kP, 1:kP]
colnames(fMat) <- colnames(object$x)
rownames(fMat) <- colnames(object$x)
return(fMat)
}
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.