Nothing
"cortocov" <-
function(cor.mat, sd){
dc <- diag(cor.mat)
ds <- diag(sd)
Mo <- ds %*% cor.mat %*% ds
Mo <- Mo - 0.5 * (Mo-t(Mo)) # Correct any round-off error
Mo <- Mo - diag(diag(Mo)-sd * sd)
return(Mo)
}
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.