marvel.demo.10x <- readRDS(system.file("extdata/data",
"marvel.demo.10x.rds",
package="MARVEL")
)
# Define SJ to plot
coord.intron <- marvel.demo.10x$adhocGene$DE$PSI$Data$coord.intron[1]
# Plot SJ vs gene
marvel.demo.10x <- adhocGene.PlotDEValues.10x(
MarvelObject=marvel.demo.10x,
coord.intron=coord.intron,
log2fc.gene=0.5,
delta.sj=5,
label.size=2,
point.size=2,
xmin=-2.0,
xmax=2.0,
ymin=-25,
ymax=25
)
# Check output
marvel.demo.10x$adhocGene$DE$VolcanoPlot$Plot
Run the code above in your browser using DataLab