sigma12 <- function (sigma) { temp <- eigen(sigma, symmetric = TRUE) sigma12 <- temp$vectors %*% diag(temp$values^0.5) %*% t(temp$vectors) sigma12 }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.