marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
marvel.demo <- ComputePSI.SE(MarvelObject=marvel.demo,
CoverageThreshold=10,
UnevenCoverageMultiplier=10
)
Run the code above in your browser using DataLab