marvel.demo.10x <- readRDS(system.file("extdata/data",
"marvel.demo.10x.rds",
package="MARVEL")
)
# SJ usage profiling
marvel.demo.10x <- adhocGene.TabulateExpression.PSI.10x(
MarvelObject=marvel.demo.10x,
min.pct.cells=10
)
# Check output
marvel.demo.10x$adhocGene$Expression$PSI$Plot
Run the code above in your browser using DataLab