marvel.demo <- readRDS(system.file("extdata/data", "marvel.demo.rds", package="MARVEL"))
# Define relevant event type
results <- marvel.demo$DE$PSI$Table[["ad"]]
index.1 <- which(results$event_type=="RI")
index.2 <- grep(":+@", results$tran_id, fixed=TRUE)
index <- intersect(index.1, index.2)
results <- results[index, ]
tran_id <- results$tran_id[1]
gene_id <- results$gene_id[1]
# Find PTC
results <- FindPTC.RI.PosStrand(MarvelObject=marvel.demo,
tran_id=tran_id,
gene_id=gene_id
)
# Check output
head(results)
Run the code above in your browser using DataLab