# NOT RUN {
PSI <- readRDS(system.file("extdata/PSI", "PSI_RED_Multi_Groups_small.rds", package="VALERIE"))
PlotPSI.A5SS.MultiGroups(PSI, SampleInfo=system.file("extdata/Sample_Info",
"Sample_Info_RED_Multi_Groups.txt", package="VALERIE"),
ExonInfo=system.file("extdata/Exon_Info", "Exon_Info_RED_small.txt", package="VALERIE"),
statistical.test="KW", multiple.testing="none",
Plots=tempdir(), plot.width=5, plot.height=8)
# }
Run the code above in your browser using DataLab