Nothing
#'Make a gapdata class object
#'
#'This function generates a gapdata class object. This object is used for drawing dendrograms and heatmaps.
#'
#' @param d dendrogram class object
#' @param segments a data.frame containing segments information
#' @param labels a data.frame containing labels information
#' @param ... ignored
#' @export as.gapdata
#' @aliases as.gapdata
#' @return the gapdata class object
#' @keywords internal
#'
#make a gapdata class
as.gapdata <- function(d, segments, labels, ...){
x <- list(dendrogram = d, segments = segments, labels = labels)
class(x) <- "gapdata"
x
}
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.