Nothing
plotcim.explore <- function(matX,matY) {
labelY <- colnames(matY)
mat.sim <- matrix(NA,ncol=dim(matX)[2],nrow=length(labelY))
for (i in 1:dim(matX)[2]){
for (j in 1:length(labelY)){
mat.sim[j,i] <- cor(matX[,i],matY[,j])
}}
cim(mat.sim,row.names = labelY,col.names = 1:dim(matX)[2])
}
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.