Nothing
summary.matrixBC <- function(object, ...){
cat("Summary for the object \"matrixBC\"\n")
cat("Call:\n\t"); print(object$cl,...); cat("\n")
cat("Cluster labels for the rows:\n")
print(object$Cs)
cat("\n")
cat("Cluster labels for the columns:\n")
print(object$Ds)
cat("\n")
cat("The estimated bicluster means:\n")
print(object$Mus)
invisible(object)
}
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.