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
marvel.demo <- CompareValues.Exp.Spliced(MarvelObject=marvel.demo,
cell.group.g1=cell.group.g1,
cell.group.g2=cell.group.g2,
psi.method="ad",
psi.pval=0.10,
psi.delta=0,
method.de.gene="t.test",
method.adjust.de.gene="fdr",
show.progress=FALSE
)
# Check output
head(marvel.demo$DE$Exp.Spliced$Table)
Run the code above in your browser using DataLab