#' Print groups of clustered genes.
#' @noRd
#' @param x An object of class \code{genecluster}.
#' @param ... Additional arguments to be passed (not in use).
#'
#' @examples
#' unbundleCluster(clustering(exanova,
#' clust.metric = 'manhattan', clust.method = 'average'))
#'
#' @return genecluster
#'
print.genecluster <- function (x, ...)
{
y <- x$groups
y
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.