View source: R/Script_PLATE_09_PREDICT_NMD_4_2_FindPTC_A5SS_NegStrand.R
FindPTC.A5SS.NegStrand | R Documentation |
Finds PTC(s) introduced by alternative exons into protein-coding transcripts.
FindPTC.A5SS.NegStrand(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")) results <- marvel.demo$DE$PSI$Table[["ad"]] index.1 <- which(results$event_type=="A5SS") 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.A5SS.NegStrand(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.