View source: R/Script_PLATE_09_PREDICT_NMD_5_1_FindPTC_A3SS_PosStrand.R
| FindPTC.A3SS.PosStrand | R Documentation | 
Finds PTC(s) introduced by alternative exons into protein-coding transcripts.
FindPTC.A3SS.PosStrand(MarvelObject, tran_id, gene_id)
| MarvelObject | Marvel object. S3 object generated from  | 
| tran_id | Character string. Vector of  | 
| gene_id | Character string. Vector of  | 
A data frame of transcripts containing splicing events meeting the psi.de.sig and psi.de.diff criteria are categorised based on the presence or absence of PTCs.
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=="A3SS")
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.A3SS.PosStrand(MarvelObject=marvel.demo,
                                tran_id=tran_id,
                                gene_id=gene_id
                                )
# Check output
head(results)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.