# NOT RUN {
PSI <- ComputePSI(SampleInfo=system.file("extdata/Sample_Info",
"Sample_Info_small.txt", package="VALERIE"),
ExonInfo=system.file("extdata/Exon_Info", "Exon_Info.txt", package="VALERIE"),
BAM=system.file("extdata/BAM", "", package="VALERIE"),
MinCoverage=10)
PSI[1:5,1:4]
# }
Run the code above in your browser using DataLab