library(knitr) opts_chunk$set(warning=TRUE, message = FALSE, cache = FALSE, fig.path = "figures/", tidy = FALSE, tidy.opts = list(width.cutoff = 60))
The cohesiveness R source package can be downloaded from Bioconductor repository or GitHub repository.
## From Bioconductor repository if (!requireNamespace("BiocManager", quietly = TRUE)) { install.packages("BiocManager") } BiocManager::install("cohesiveness") ## Or from GitHub repository using devtools BiocManager::install("devtools") devtools::install_github("fjcamlab/cohesiveness")
library(cohesiveness) library(leukemiasEset) library(Biobase) ## Loading an example dataset data(leukemiasEset) ## Formatting the dataset mx <- exprs(leukemiasEset) ## Vector of sample categories cl <- pData(leukemiasEset)[, "LeukemiaType"] names(cl) <- rownames(pData(leukemiasEset))
## Running cohesiveness on the dataset coh <- cohesiveness(mx, cl)
plotCohesiveness(mx, cl, coh = coh, id = "ENSG00000182606")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.