# NOT RUN {
PSI <- readRDS(system.file("extdata/PSI", "PSI_RED_Two_Groups_small.rds", package="VALERIE"))
PlotPSI.A3SS.TwoGroups(PSI, SampleInfo=system.file("extdata/Sample_Info",
"Sample_Info_RED_Two_Groups.txt", package="VALERIE"),
ExonInfo=system.file("extdata/Exon_Info", "Exon_Info_RED_small.txt", package="VALERIE"),
statistical.test="wilcox", multiple.testing="bonferroni",
Plots=tempdir(), plot.width=5, plot.height=8)
# }
Run the code above in your browser using DataCamp Workspace