Nothing
# cov2corMod: The cov2cor function that takes care of the zero-variance
# variables
cov2corMod <- function(V) {
targetCol <- which(diag(V) != 0)
if (length(targetCol) > 0)
V[targetCol, targetCol] <- cov2cor(as.matrix(V[targetCol, targetCol]))
return(V)
}
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.