Nothing
# Pattern in consensus matrix
ConsensusMatPlot <- function(fit,rowLab=TRUE,colLab=TRUE){
if(rowLab==TRUE) row.name <- NULL else row.name <- NA
if(colLab==TRUE) col.name <- NULL else col.name <- NA
aheatmap(fit$consensus[names(sort(fit$clusters)),names(sort(fit$clusters))],color="Greys",Rowv=NA, Colv=NA,labRow=row.name,labCol=col.name)
}
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.