#' Take a subset from the flowSet
#'
#' @param fsom FlowSOM object as generated by the FlowSOM function
#' @param file File to select
#'
#' @export
FlowSOM_subset <- function(fsom, file){
fsom_selected <- FlowSOMSubset(fsom,
fsom$metaData[[file]][1]:fsom$metaData[[file]][2])
return(list(FlowSOM = fsom_selected, metaclustering = fsom$metaclustering))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.