View source: R/Script_PLATE_08_DE_1_2_CompareValues_PSI.R
CompareValues.PSI | R Documentation |
Performs differentially splicing analysis between 2 groups of cells.
CompareValues.PSI( MarvelObject, cell.group.g1, cell.group.g2, downsample = FALSE, seed = 1, min.cells = 25, pct.cells = NULL, method, nboots = 1000, n.permutations = 1000, method.adjust = "fdr", event.type, show.progress = TRUE, annotate.outliers = TRUE, n.cells.outliers = 10, assign.modality = TRUE )
MarvelObject |
Marvel object. S3 object generated from |
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. |
downsample |
Logical value. If set to |
seed |
Numeric value. The seed number for the random number generator to ensure reproducibility during during down-sampling of cells when |
min.cells |
Numeric value. The minimum no. of cells expressing the splicing event for the event to be included for differential splicing analysis. |
pct.cells |
Numeric value. The minimum percentage of cells expressing the splicing event for the event to be included for differential splicing analysis. If |
method |
Character string. Statistical test to compare the 2 groups of cells. |
nboots |
Numeric value. When |
n.permutations |
Numeric value. When |
method.adjust |
Character string. Adjust p-values for multiple testing. Options available as per |
event.type |
Character string. Indicate which splicing event type to include for analysis. Can take value |
show.progress |
Logical value. If set to |
annotate.outliers |
Numeric value. When set to |
n.cells.outliers |
Numeric value. When |
assign.modality |
Logical value. If set to |
An object of class data frame containing the output of the differential splicing analysis.
marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL")) # Define cell groups for analysis df.pheno <- marvel.demo$SplicePheno cell.group.g1 <- df.pheno[which(df.pheno$cell.type=="iPSC"), "sample.id"] cell.group.g2 <- df.pheno[which(df.pheno$cell.type=="Endoderm"), "sample.id"] # DE results <- CompareValues.PSI(MarvelObject=marvel.demo, cell.group.g1=cell.group.g1, cell.group.g2=cell.group.g2, min.cells=5, method="t.test", method.adjust="fdr", event.type=c("SE", "MXE", "RI", "A5SS", "A3SS", "AFE", "ALE"), show.progress=FALSE ) # Check output head(results)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.