View source: R/Script_DROPLET_04_DE_1_SJ.R
CompareValues.SJ.10x | R Documentation |
Performs differential splice junction analysis between two groups of cells.
CompareValues.SJ.10x( MarvelObject, coord.introns = NULL, cell.group.g1, cell.group.g2, min.pct.cells.genes = 10, min.pct.cells.sj = 10, min.gene.norm = 1, seed = 1, n.iterations = 100, downsample = FALSE, show.progress = TRUE )
MarvelObject |
Marvel object. S3 object generated from |
coord.introns |
Character strings. Specific splice junctions to be included for analysis. Default is |
cell.group.g1 |
Vector of Character strings. Cell IDs corresponding to Group 1 (reference group). |
cell.group.g2 |
Vector of Character strings. Cell IDs corresponding to Group 2. |
min.pct.cells.genes |
Numeric value. Minimum percentage of cells in which the gene is expressed for that gene to be included for splice junction expression distribution analysis. Expressed genes defined as genes with non-zero normalised UMI counts. This threshold may be determined from |
min.pct.cells.sj |
Numeric value. Minimum percentage of cells in which the splice junction is expressed for that splice junction to be included for splice junction expression distribution analysis. Expressed splice junctions defined as splice junctions with raw UMI counts >= 1. This threshold may be determined from |
min.gene.norm |
Numeric value. The average normalised gene expression across the two cell groups above which the splice junction will be included for analysis. Default is |
seed |
Numeric value. Random number generator to be fixed for permutations test and down-sampling. |
n.iterations |
Numeric value. Number of times to shuffle the cell group labels when building the null distribution. Default is |
downsample |
Logical value. If set to |
show.progress |
Logical value. If set to |
An object of class S3 with a new slots MarvelObject$DE$SJ$Table
, MarvelObject$DE$SJ$cell.group.g1
, and MarvelObject$DE$SJ$cell.group.g2
.
marvel.demo.10x <- readRDS(system.file("extdata/data", "marvel.demo.10x.rds", package="MARVEL") ) # Define cell groups # Retrieve sample metadata sample.metadata <- marvel.demo.10x$sample.metadata # Group 1 (reference) index <- which(sample.metadata$cell.type=="iPSC") cell.ids.1 <- sample.metadata[index, "cell.id"] length(cell.ids.1) # Group 2 index <- which(sample.metadata$cell.type=="Cardio day 10") cell.ids.2 <- sample.metadata[index, "cell.id"] length(cell.ids.2) # DE marvel.demo.10x <- CompareValues.SJ.10x( MarvelObject=marvel.demo.10x, cell.group.g1=cell.ids.1, cell.group.g2=cell.ids.2, min.pct.cells.genes=10, min.pct.cells.sj=10, min.gene.norm=1.0, seed=1, n.iterations=100, downsample=TRUE, show.progress=FALSE ) # Check output head(marvel.demo.10x$DE$SJ$Table)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.