marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
sample.ids <- sample(marvel.demo$SplicePheno$sample.id, size=10)
marvel.demo <- SubsetSamples(MarvelObject=marvel.demo,
sample.ids=sample.ids
)
Run the code above in your browser using DataLab