This package implements a published Naive Bayes classifier for accurate identification of polyadenylation (pA) sites from oligo(dT)-based 3’ end sequencing such as PAS-Seq, PolyA-Seq and RNA-Seq. The classifer is highly accurate and outperforms other heuristic methods. Even though the classfier has been trained using Zebrafish data, it works well with other species as demonstrated in several organisms including the human, mouse, rat, dog and monkey.
cleanUpdTSeq 1.32.0
3’ ends of transcripts have generally been poorly annotated. With the advent of deep sequencing, many methods have been developed to identify 3’ ends. The majority of these methods use an oligo-dT primer, which can bind to internal adenine-rich sequences, and lead to artifactual identification of polyadenylation sites. Heuristic filtering methods rely on a certain number of adenines in the genomic sequence downstream of a putative polyadenylation site to remove internal priming events. We introduce a package to provide a robust method to classify putative polyadenylation sites. cleanUpdTSeq uses a naïve Bayes classifier, implemented through the e1071 [1], and sequence features surrounding the putative polyadenylation sites for classification.
The package includes a training dataset constructed from 6 different Zebrafish sequencing dataset, and functions for fetching surrounding sequences using BSgenome [2], building feature vectors and classifying whether the putative polyadenylations site is a true polyadenylation site or a mis-primed false site.
If you use cleanUpdTSeq, please cite:
Sheppard, S., Lawson, N.D. and Zhu, L.J., 2013. Accurate identification of polyadenylation sites from 3’ end deep sequencing using a naive Bayes classifier. Bioinformatics, 29(20), pp.2564-2571 and 2014, 30(4), pp.596, https://doi.org/10.1093/bioinformatics/btt714
Here is a step-by-step guide on how to use the cleanUpdTSeq package to classify a list of putative polyadenylation sites
suppressPackageStartupMessages(library(cleanUpdTSeq))
testFile <- system.file("extdata", "test.bed",
package = "cleanUpdTSeq")
peaks <- BED6WithSeq2GRangesSeq(file = testFile,
skip = 1L, withSeq = FALSE)If test dataset contains sequence information already, then use the following command instead.
peaks <- BED6WithSeq2GRangesSeq(file = testFile,
skip = 1L, withSeq = TRUE)To work with your own test dataset, please set testFile to the file path that contains the putative pA site information.
Here is how the test dataset look like.
head(read.delim(testFile, header = TRUE, skip = 0))## chr start stop name score strand
## 1 chr10 2965327 2965328 6hpas-22249 1 -
## 2 chr10 2966558 2966559 6hpas-22250 1 -
## 3 chr10 2974251 2974252 6hpas-22251 2 -
## 4 chr10 2978441 2978442 6hpas-22252 1 -
## 5 chr11 16772291 16772292 6hpas-33204 1 -
## 6 chr11 16777848 16777849 6hpas-33205 1 -
## upstream downstream
## 1 TCTTCATCATGGTCATCTCGCACCAGAGAGTGTGCCAGGG CAGGAAGTTTTACCTGTCTGTCATTATCGT
## 2 ACCCTGGTGAGGGTATAGAGCTGGTCCAGTGTGCCACGGC AAAGAGGAAAACAGCATTGTTCCTCCTGGA
## 3 TGATTTGTTTGTAACTGATTTTATCTTTTAATAAAAAAGA AAAAAGAAAGTCAAGCCAAGAGGCAAATAC
## 4 GGAGCGCGACCGCATCAACAAAATCTTGCAGGATTATCAG AAGAAAAAGATGGTGAGTTATTATCATTCA
## 5 AGGGAAATAAATACAAAAGAATAAAAATATGATTCATTGT AAGAAAAACACTTTAGCTACAAAAGTCCTT
## 6 ATTTAGTTGGGTATTATTTCAAATAAAGAGAGAGAGAGAC ACAAAAACTACATCAAATTTGAGGACAAAAThe zebrafish genome from BSgenome is used in this example for obtaining flanking sequences. For a list of other genomes available through BSgenome, please refer to the BSgenome package documentation [2].
suppressPackageStartupMessages(library(BSgenome.Drerio.UCSC.danRer7))
testSet.NaiveBayes <- buildFeatureVector(peaks,
genome = Drerio,
upstream = 40L,
downstream = 30L,
wordSize = 6L,
alphabet = c("ACGT"),
sampleType = "unknown",
replaceNAdistance = 30,
method = "NaiveBayes",
fetchSeq = TRUE,
return_sequences = TRUE)If sequences are present in the test dataset already, then set fetchSeq = FALSE.
The output file is a tab-delimited file containing the name of the putative polyadenylation sites, the probability that the putative polyadenylation site is false/oligodT internally primed, the probability the putative polyadenylation site is true, the predicted class based on the assignment cutoff and the sequence surrounding the putative polyadenylation site.
data(data.NaiveBayes)
if(interactive()){
out <- predictTestSet(data.NaiveBayes$Negative,
data.NaiveBayes$Positive,
testSet.NaiveBayes = testSet.NaiveBayes,
outputFile = file.path(tempdir(),
"test-predNaiveBayes.tsv"),
assignmentCutoff = 0.5)
}Alternatively, instead of passing in a positive and a negative training dataset, set the parameter classifier to a pre-built PASclassifier to speed up the process. To built a PASclassifier using the training dataset, please use function buildClassifier. A PASclassifier named as classifier is included in the package which is generated using the included training dataset with upstream = 40, downstream = 30, and wordSize = 6. Please note that in order to use this pre-built classier, you need to build feature vector using buildFeatureVector from your test dataset with the same setting, i.e., upstream = 40, downstream = 30, and wordSize = 6.
data(classifier)
testResults <- predictTestSet(testSet.NaiveBayes = testSet.NaiveBayes,
classifier = classifier,
outputFile = NULL,
assignmentCutoff = 0.5,
return_sequences = TRUE)## genome of classifier is different from testSet.NaiveBayes.head(testResults)## peak_name prob_fake_pA prob_true_pA pred_class
## 1 6hpas-22249 0.99778351 2.216486e-03 0
## 2 6hpas-22250 1.00000000 6.699365e-10 0
## 3 6hpas-22251 0.99444054 5.559459e-03 0
## 4 6hpas-22252 0.99999995 4.729351e-08 0
## 5 6hpas-33204 0.02810869 9.718913e-01 1
## 6 6hpas-33205 0.99997144 2.855673e-05 0
## upstream_seq downstream_seq
## 1 TCTTCATCATGGTCATCTCGCACCAGAGAGTGTGCCAGGG CAGGAAGTTTTACCTGTCTGTCATTATCGT
## 2 ACCCTGGTGAGGGTATAGAGCTGGTCCAGTGTGCCACGGC AAAGAGGAAAACAGCATTGTTCCTCCTGGA
## 3 TGATTTGTTTGTAACTGATTTTATCTTTTAATAAAAAAGA AAAAAGAAAGTCAAGCCAAGAGGCAAATAC
## 4 GGAGCGCGACCGCATCAACAAAATCTTGCAGGATTATCAG AAGAAAAAGATGGTGAGTTATTATCATTCA
## 5 AGGGAAATAAATACAAAAGAATAAAAATATGATTCATTGT AAGAAAAACACTTTAGCTACAAAAGTCCTT
## 6 ATTTAGTTGGGTATTATTTCAAATAAAGAGAGAGAGAGAC ACAAAAACTACATCAAATTTGAGGACAAAAMeyer, D., et al., e1071: Misc Functions of the Department of Statistics (e1071), TU Wien. 2012.
Pages, H., BSgenome: Infrastructure for Biostrings-based genome data packages.
Sheppard, S., Lawson, N.D. and Zhu, L.J., 2013. Accurate identification of polyadenylation sites from 3’ end deep sequencing using a naive Bayes classifier. Bioinformatics, 29(20), pp.2564-2571.
sessionInfo()R version 4.1.1 (2021-08-10) Platform: x86_64-w64-mingw32/x64 (64-bit) Running under: Windows Server x64 (build 17763)
Matrix products: default
locale:
[1] LC_COLLATE=C
[2] LC_CTYPE=English_United States.1252
[3] LC_MONETARY=English_United States.1252
[4] LC_NUMERIC=C
[5] LC_TIME=English_United States.1252
attached base packages:
[1] stats4 stats graphics grDevices utils datasets methods
[8] base
other attached packages:
[1] cleanUpdTSeq_1.32.0 BSgenome.Drerio.UCSC.danRer7_1.4.0
[3] BSgenome_1.62.0 rtracklayer_1.54.0
[5] Biostrings_2.62.0 XVector_0.34.0
[7] GenomicRanges_1.46.0 GenomeInfoDb_1.30.0
[9] IRanges_2.28.0 S4Vectors_0.32.0
[11] BiocGenerics_0.40.0 BiocStyle_2.22.0
loaded via a namespace (and not attached):
[1] SummarizedExperiment_1.24.0 xfun_0.27
[3] bslib_0.3.1 lattice_0.20-45
[5] htmltools_0.5.2 yaml_2.2.1
[7] XML_3.99-0.8 rlang_0.4.12
[9] e1071_1.7-9 jquerylib_0.1.4
[11] BiocParallel_1.28.0 matrixStats_0.61.0
[13] GenomeInfoDbData_1.2.7 stringr_1.4.0
[15] zlibbioc_1.40.0 MatrixGenerics_1.6.0
[17] evaluate_0.14 restfulr_0.0.13
[19] Biobase_2.54.0 knitr_1.36
[21] fastmap_1.1.0 parallel_4.1.1
[23] class_7.3-19 BiocManager_1.30.16
[25] DelayedArray_0.20.0 jsonlite_1.7.2
[27] Rsamtools_2.10.0 rjson_0.2.20
[29] digest_0.6.28 stringi_1.7.5
[31] bookdown_0.24 ade4_1.7-18
[33] BiocIO_1.4.0 grid_4.1.1
[35] tools_4.1.1 bitops_1.0-7
[37] magrittr_2.0.1 sass_0.4.0
[39] RCurl_1.98-1.5 proxy_0.4-26
[41] crayon_1.4.1 seqinr_4.2-8
[43] MASS_7.3-54 Matrix_1.3-4
[45] rmarkdown_2.11 R6_2.5.1
[47] GenomicAlignments_1.30.0 compiler_4.1.1