marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
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"]
cell.group.list <- list(cell.group.g1, cell.group.g2)
names(cell.group.list) <- c("iPSC", "Endoderm")
# Plot
marvel.demo <- PlotValues.Exp(MarvelObject=marvel.demo,
cell.group.list=cell.group.list,
feature="ENSG00000161970.15",
xlabels.size=8
)
# Check output
marvel.demo$adhocPlot$Exp
Run the code above in your browser using DataLab