Get gene names from spliceWiz's EventName column.

Usage

get_genes_from_event_name(x)

Arguments

x: a character vector denoting EventNames of SpliceWiz.

Value

a character vector of gene names

Examples

se <- SpliceWiz::SpliceWiz_example_NxtSE(novelSplicing = TRUE)
SpliceWiz::colData(se)$treatment <- rep(c("A", "B"), each = 3)
SpliceWiz::colData(se)$replicate <- rep(c("P","Q","R"), 2)
res_edgeR <- SpliceWiz::ASE_edgeR(se, "treatment", "A", "B", useQL = FALSE)
#> Mar 22 17:06:01 Performing edgeR contrast for included / excluded counts separately
#> Mar 22 17:06:03 Performing edgeR contrast for included / excluded counts together
get_genes_from_event_name(res_edgeR$EventName)
#>   [1] "NSUN5" "NSUN5" "NSUN5" "TP53"  "TRA2B" "TRA2B" "TRA2B" "TRA2B" "TRA2B"
#>  [10] "SRSF2" "SRSF3" "TRA2B" "NSUN5" "SRSF2" "TRA2A" "TRA2A" "TRA2B" "SRSF1"
#>  [19] "SRSF2" "NSUN5" "NSUN5" "TRA2A" "TRA2B" "SRSF1" "NSUN5" "SRSF1" "NSUN5"
#>  [28] "TP53"  "NSUN5" "TRA2B" "SRSF1" "SRSF1" "TRA2A" "TRA2B" "SRSF2" "TRA2A"
#>  [37] "TP53"  "SRSF3" "SRSF1" "TP53"  "TRA2A" "TP53"  "TRA2A" "SRSF2" "TP53" 
#>  [46] "SRSF2" "TRA2A" "SRSF2" "TP53"  "TP53"  "SRSF2" "TRA2B" "TRA2A" "SRSF2"
#>  [55] "SRSF2" "TRA2A" "TRA2B" "TRA2A" "SRSF2" "TRA2B" "SRSF3" "TRA2A" "SRSF3"
#>  [64] "TRA2B" "TRA2B" "TP53"  "TRA2A" "NSUN5" "SRSF3" "TRA2B" "TRA2A" "TP53" 
#>  [73] "TRA2B" "SRSF1" "SRSF1" "SRSF1" "SRSF3" "SRSF1" "TRA2A" "TRA2A" "SRSF3"
#>  [82] "TRA2A" "SRSF1" "TRA2A" "TRA2A" "TP53"  "TRA2B" "TRA2A" "SRSF3" "SRSF1"
#>  [91] "TRA2A" "TRA2A" "SRSF2" "SRSF1" "TRA2B" "TRA2A" "TP53"  "TP53"  "SRSF1"
#> [100] "TRA2A" "TRA2B" "SRSF1" "NSUN5" "TRA2A" "TRA2A" "TRA2A" "TP53"  "NSUN5"
#> [109] "TP53"  "TRA2A" "SRSF3" "TRA2A" "SRSF1" "SRSF1" "TRA2A" "TRA2A" "SRSF3"
#> [118] "NSUN5" "TRA2B" "SRSF3" "NSUN5" "SRSF2" "SRSF3" "TRA2A" "SRSF2" "SRSF3"
#> [127] "SRSF2" "SRSF1" "SRSF1" "NSUN5" "SRSF2" "TRA2B" "SRSF2" "SRSF3" "TRA2B"
#> [136] "TP53"  "NSUN5" "TRA2B" "TP53"  "TP53"  "SRSF3" "TRA2A" "TP53"  "TP53" 
#> [145] "TP53"  "TP53"  "TP53"