marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
marvel.demo <- SubsetCrypticA3SS(MarvelObject=marvel.demo,
method="ad",
distance.to.ss=c(1,100)
)
# Check output
head(marvel.demo$DE$PSI$Table[["ad"]])
Run the code above in your browser using DataLab