Nothing
corrmatgen <- function(CM,varp)
{
k <- ncol(CM)
if( length(varp) != k )
{stop("number of columns and length of var must be the same")}
l <- nrow(CM)
cor <- matrix(0, ncol=l, nrow=l)
for(i in 1:l)
{
for(j in 1:l)
{
cor[i,j]<-sum( CM[i,]*CM[j,]*varp ) / sqrt( sum( (CM[i,]^2)*varp ) * sum( (CM[j,]^2)*varp ) )
}
}
return(cor)
}
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.