View source: R/ClusterGeneSets.R
ClusterGeneSets | R Documentation |
ClusterGeneSets
ClusterGeneSets(Object, clusters = 5, method = "kmeans", order = "group", molecular.signature = "All", user_function)
Object |
A PathwayObject |
clusters |
A numeric with the number of clusters required |
method |
The cluster method specified, Options are kmeans, kmeans_group, Hierarchical and Hierarchical_group |
order |
How should the data be ordered, by group or by cluster |
molecular.signature |
to filter the molecular signatures which are duplicated before clustering. options are Unique or All |
user_function |
A user supplied function for clustering |
PathwayObject
Great.files <- c(system.file("extdata", "MM10.GREAT.KO.uGvsMac.bed.tsv", package = "GeneSetCluster"), system.file("extdata", "MM10.GREAT.KO.uGvsMac.bed_BCKGRND.tsv", package = "GeneSetCluster"), system.file("extdata", "MM10.GREAT.WT.uGvsMac.bed.tsv", package = "GeneSetCluster"), system.file("extdata", "MM10.GREAT.WT.uGvsMac.bed_BCKGRND.tsv", package = "GeneSetCluster")) Great.files.bckgrnd <- Great.files[grepl("BCKGRND", Great.files)] Great.bckgnrd.Object1 <- LoadGeneSets(file_location = Great.files.bckgrnd, groupnames= c("KO", "WT"), P.cutoff = 0.05, Mol.cutoff = 5, Source = "Great", Great.Background = TRUE, type = "Canonical_Pathways", topranks = 20, structure = "SYMBOL", Organism = "org.Mm.eg.db", seperator = ",") man.Great.Object1 <- ManageGeneSets(Object = Great.bckgnrd.Object1, keep.type =c("Disease Ontology", "GO Biological Process" ), exclude.type="") man.Great.Object2 <- CombineGeneSets(Object = man.Great.Object1) man.Great.Object3 <- ClusterGeneSets(Object = man.Great.Object2, clusters = 5, method = "kmeans")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.