1 Introduction
- 1.1 Bioconductor installation
- 1.2 Devel installation from github
2 Aligning reads
3 Gene-transcript matching
4 DTU pipeline
5 Inference with 3 or more groups
6 Inference with 1 group only
7 Session info
References

1 Introduction

BANDITS is a Bayesian hierarchical method to perform differential splicing via differential transcript usage (DTU). BANDITS uses a hierarchical structure, via a Dirichlet-multinomial model, to explicitly model the over-dispersion between replicates and allowing for sample-specific transcript relative abundance (i.e., the proportions). More mathematically, consider a gene with K transcripts with transcript level counts \(Y = (Y_1, \ldots, Y_K)\); we assume that \(Y \sim DM(\pi_1, \ldots,\pi_K, \delta)\), where \(DM\) denotes the Dirichlet-multinomial distribution, \(\pi_1, \ldots,\pi_K\) indicate the relative abundance of transcripts \(1, \ldots, K\), and \(\delta\) represents the precision parameter, modelling the degree of over-dispersion between samples.

We input the equivalence classes and respective counts, where the equivalence classes represent the group of transcripts reads are compatible with. The method is embedded in a Bayesian hierarchical framework, where the posterior densities of the parameters are inferred via Markov chain Monte Carlo (MCMC) techniques. The allocation of each RNA-seq read to its transcript of origin is treated as a latent variable and also sampled in the MCMC. To test for DTU, we compare the average transcript relative abundance between two or more conditions. A statistical test is performed, both, at the gene- and transcript-level, allowing scientists to investigate what specific transcripts are differentially used in significant genes.

To access the R code used in the vignettes, type:

browseVignettes("BANDITS")

Questions relative to BANDITS should be either written to the Bioconductor support site, tagging the question with “BANDITS”, or reported as a new issue at BugReports.

To cite BANDITS, type:

citation("BANDITS")

## 
## To cite BANDITS in publications use:
## 
##   Simone Tiberi and Mark D. Robinson (2020). BANDITS: Bayesian
##   differential splicing accounting for sample-to-sample variability and
##   mapping uncertainty. Genome Biology, 21 (69). URL
##   https://genomebiology.biomedcentral.com/articles/10.1186/s13059-020-01967-8
## 
## A BibTeX entry for LaTeX users is
## 
##   @Article{,
##     title = {BANDITS: Bayesian differential splicing accounting for sample-to-sample variability and mapping uncertainty},
##     author = {Simone Tiberi and Mark D. Robinson},
##     eprint = {https://genomebiology.biomedcentral.com/articles/10.1186/s13059-020-01967-8},
##     journal = {Genome Biology},
##     volume = {21},
##     number = {69},
##     year = {2020},
##     doi = {10.1186/s13059-020-01967-8},
##     url = {https://genomebiology.biomedcentral.com/articles/10.1186/s13059-020-01967-8},
##     publisher = {Springer},
##   }

1.1 Bioconductor installation

BANDITS is available on Bioconductor and can be installed with the command:

if (!requireNamespace("BiocManager", quietly=TRUE))
  install.packages("BiocManager")
BiocManager::install("BANDITS")

1.2 Devel installation from github

To install the latest development version of the package from github, use devtools (available here):

devtools::install_github("SimoneTiberi/BANDITS")

To install the package jointly with its vignette remove --no-build-vignettes from build_opts:

devtools::install_github("SimoneTiberi/BANDITS",
                         build_opts = c("--no-resave-data", "--no-manual"))

2 Aligning reads

The package inputs the equivalence classes and respective counts. These can be obtained by aligning reads either directly to a reference transcriptome with pseudo-alignmers, via salmon (Patro et al. 2017) or kallisto (Bray et al. 2016), or to a reference genome with splice-aware genome alignment algorithms, via STAR (Dobin et al. 2013), and checking the transcripts compatible with each genome alignment with salmon.

NOTE: when using salmon, use the option --dumpEq to obtain the equivalence classes, when using STAR, use the option --quantMode TranscriptomeSAM to obtain alignments translated into transcript coordinates, and when using kallisto, run both kallisto quant and kallisto pseudo to obtain the transcript estimated counts and equivalence classes, respectively.

The file README provides three pipelines for aligning reads with salmon, kallisto and STAR.

3 Gene-transcript matching

Further to the equivalence classes, our tool requires the matching between gene and transcript ids, compatible with the genome or transcriptome used to align reads. There are multiple ways to compute a gene-transcript compatibility matrix; below we show two examples to create it, accoriding to whether reads are aligned with a genome and transcriptome aligner. Bear in mind that the example code below will not work on any given gtf and fasta file and adjustments might be needed; alternative approaches to compute gene-transcript matchings are illustrated in tximport (Soneson, Love, and Robinson 2015) vignette.

If the reads are aligned to the genome first (with STAR), we can compute a gene-transcript association from the gtf file via GenomicFeatures (Lawrence et al. 2013) library. Here we provide an example code:

suppressMessages(library(GenomicFeatures))
gtf_file = system.file("extdata","GTF_files","Aedes_aegypti.partial.gtf",
                       package="GenomicFeatures")
tx = makeTxDbFromGFF(gtf_file)
ss = unlist(transcriptsBy(tx, by="gene"))
gene_tr_id_gtf = data.frame(gene_id = names(ss), transcript_id = ss$tx_name )
# remove eventual NA's:
gene_tr_id_gtf = gene_tr_id_gtf[ rowSums( is.na(gene_tr_id_gtf)) == 0, ]
# remove eventual duplicated rows:
gene_tr_id_gtf = unique(gene_tr_id_gtf)

If the reads are aligned directly to the transcriptome (with salmon or kallisto), we compute a gene-transcript association from the cDNA fasta file via Biostrings (Pagès et al. 2019) library. Here we provide an example code:

suppressMessages(library(Biostrings))
data_dir = system.file("extdata", package = "BANDITS")
fasta = readDNAStringSet(file.path(data_dir, "Homo_sapiens.GRCh38.cdna.all.1.1.10M.fa.gz"))
ss = strsplit(names(fasta), " ")
gene_tr_id_fasta = data.frame(gene_id = gsub("gene:", "", sapply(ss, .subset, 4)),
                              transcript_id = sapply(ss, .subset, 1))
# remove eventual NA's
gene_tr_id_fasta = gene_tr_id_fasta[ rowSums( is.na(gene_tr_id_fasta)) == 0, ]
# remove eventual duplicated rows:
gene_tr_id_fasta = unique(gene_tr_id_fasta)

4 DTU pipeline

Load BANDITS

library(BANDITS)

4.1 Preliminary information

Specify the directory of the data (internal in the package).

data_dir = system.file("extdata", package = "BANDITS")

We need a matrix or data.frame containing the matching between gene and transcript identifiers. The file “alignment and gene-transcript matching.txt” shows how to create such a file from a gtf (in case of genome alignment) or from a fasta file (in case of transcript alignment).

Load the precomputed gene-transcript matching. gene_tr_id is a data.frame (but a matrix is also accepted) containing the transcripts ids on the second column and the corresponding gene ids on the first column.

data("gene_tr_id", package = "BANDITS")
head(gene_tr_id)

##            gene_id   transcript_id
## 2  ENSG00000223972 ENST00000456328
## 6  ENSG00000223972 ENST00000450305
## 14 ENSG00000227232 ENST00000488147
## 27 ENSG00000278267 ENST00000619216
## 30 ENSG00000243485 ENST00000473358
## 34 ENSG00000243485 ENST00000469289

Specify the directory of the transcript level estimated counts.

sample_names = paste0("sample", seq_len(4))
quant_files = file.path(data_dir, "STAR-salmon", sample_names, "quant.sf")
file.exists(quant_files)

## [1] TRUE TRUE TRUE TRUE

Load the transcript level estimated counts via tximport.

library(tximport)
txi = tximport(files = quant_files, type = "salmon", txOut = TRUE)

## reading in files with read_tsv

## 1 2 3 4

counts = txi$counts
head(counts)

##                     [,1]     [,2]     [,3]     [,4]
## ENST00000456328  5.00000  2.00000  8.00000  2.00000
## ENST00000450305  0.00000  0.00000  0.00000  0.00000
## ENST00000488147 47.39685 43.09507 65.84316 31.40446
## ENST00000619216  0.00000  0.00000  0.00000  0.00000
## ENST00000473358  1.00000  1.00000  1.00000  1.00000
## ENST00000469289  0.00000  0.00000  1.00000  0.00000

We define the design of the study: in our case we have 2 groups, that we call “A” and “B” of 2 samples each.

samples_design = data.frame(sample_id = sample_names,
                            group = c("A", "A", "B", "B"))
samples_design

##   sample_id group
## 1   sample1     A
## 2   sample2     A
## 3   sample3     B
## 4   sample4     B

The groups are defined in:

levels(samples_design$group)

## NULL

Here we consider a two-group comparison, however BANDITS also allows to compare more than 2 groups.

Before loading the data, we also compute, via eff_len_compute, the median effective length of each transcript (the median is computed with respect to the samples).

eff_len = eff_len_compute(x_eff_len = txi$length)
head(eff_len)

## ENST00000456328 ENST00000450305 ENST00000488147 ENST00000619216 ENST00000473358 
##       1503.1350        478.2580       1197.1350          3.0210        558.2165 
## ENST00000469289 
##        381.3605

4.2 Optional (recommended): transcript pre-filtering

Pre-filtering lowly abundant transcripts was found to improve performance of differential splicing methods; furthermore, by simplifying the inferential problem, it also leads to a significant reduction in the computational cost of our method. Albeit not strictly required, we highly suggest to pre-filter transcripts. Here, we use a mild filtering cutoff by remove transcripts whose average relative abundance is below 0.01. For the filtering step, we use transcript-level estimated counts to compute the average relative abundance.

Compute the transcripts to keep, by filtering lowly abundant transcripts. Here min_transcript_proportion = 0.01 will remove transctipts with estimated mean relative abundance below 0.01. We further impose constraints on the total abundance: min_transcript_counts = 10 indicates that each transcript must have at least 10 estimated counts (adding counts from all samples), and min_gene_counts = 20 specifies that each gene should have at least 20 estimated counts (adding counts from all samples). While running, filter_transcripts prints on screen the percentage of transcripts kept after filtering.

transcripts_to_keep = filter_transcripts(gene_to_transcript = gene_tr_id,
                                         transcript_counts = counts, 
                                         min_transcript_proportion = 0.01,
                                         min_transcript_counts = 10, 
                                         min_gene_counts = 20)

## After filtering, 12.24% of transcripts are kept

head(transcripts_to_keep)

## [1] "ENST00000377577" "ENST00000358779" "ENST00000341426" "ENST00000341991"
## [5] "ENST00000377403" "ENST00000054666"

4.3 Load the data

Below we illustrate how to load the equivalence classes computed with salmon or kallisto.

4.3.1 salmon input

We specify the path to the equivalence classes computed by salmon in equiv_classes_files.

equiv_classes_files = file.path(data_dir, "STAR-salmon", sample_names, 
                                "aux_info", "eq_classes.txt")
file.exists(equiv_classes_files)

## [1] TRUE TRUE TRUE TRUE

Warning: the sample names in equiv_classes_files must have the same order as those in the design object, containted in samples_design.

equiv_classes_files

## [1] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/STAR-salmon/sample1/aux_info/eq_classes.txt"
## [2] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/STAR-salmon/sample2/aux_info/eq_classes.txt"
## [3] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/STAR-salmon/sample3/aux_info/eq_classes.txt"
## [4] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/STAR-salmon/sample4/aux_info/eq_classes.txt"

samples_design$sample_id

## [1] "sample1" "sample2" "sample3" "sample4"

We then import the equivalence classes and respective counts, and create a BANDITS_data object via create_data. When providing transcripts_to_keep, the function filters internally transcripts that are not in the vector. When filtering transripts, we suggest to parallelize computations and use one core per sample (i.e., n_cores = length(path_to_eq_classes)). Since at least 2 transcripts are necessary to study differential splicing, genes with a single transcript are not analyzed.

In our example data, reads were aligned to the genome with STAR, and salmon was then used to compute the equivalence classes (and quantify transcript abundance) on the aligned reads; therefore we set salmon_or_kallisto = "salmon".

input_data = create_data(salmon_or_kallisto = "salmon",
                         gene_to_transcript = gene_tr_id,
                         salmon_path_to_eq_classes = equiv_classes_files,
                         eff_len = eff_len, 
                         n_cores = 2,
                         transcripts_to_keep = transcripts_to_keep)

## Data has been loaded

## Max  11  transcripts per group

## Max  5  genes per group

If transcripts pre-filtering is not wanted, do not specify transcripts_to_keep parameter.

After loading the data, with filter_genes(data, min_counts_per_gene = 20), we remove genes with less than 20 counts overall (i.e., considering all equivalence classes across all samples).

input_data = filter_genes(input_data, min_counts_per_gene = 20)

## Initial number of genes: 40; number of selected genes: 40

4.3.2 kallisto input

When reads have been aligned with kallisto, we proceed in a very similar way as above.

We specify the path to the equivalence classes (kallisto_equiv_classes) and respective counts (kallisto_equiv_counts) computed by kallisto.

kallisto_equiv_classes = file.path(data_dir, "kallisto", sample_names, "pseudoalignments.ec")
kallisto_equiv_counts  = file.path(data_dir, "kallisto", sample_names, "pseudoalignments.tsv")
file.exists(kallisto_equiv_classes); file.exists(kallisto_equiv_counts)

## [1] TRUE TRUE TRUE TRUE

## [1] TRUE TRUE TRUE TRUE

Warning: as above, the sample names in kallisto_equiv_classes and kallisto_equiv_classes must have the same order as those in the design object, containted in samples_design.

kallisto_equiv_classes; kallisto_equiv_counts

## [1] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample1/pseudoalignments.ec"
## [2] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample2/pseudoalignments.ec"
## [3] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample3/pseudoalignments.ec"
## [4] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample4/pseudoalignments.ec"

## [1] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample1/pseudoalignments.tsv"
## [2] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample2/pseudoalignments.tsv"
## [3] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample3/pseudoalignments.tsv"
## [4] "D:/biocbuild/bbs-3.14-bioc/tmpdir/RtmpyEFaa1/Rinst2078196c1bb1/BANDITS/extdata/kallisto/sample4/pseudoalignments.tsv"

samples_design$sample_id

## [1] "sample1" "sample2" "sample3" "sample4"

As above, we import the equivalence classes and respective counts, and create a BANDITS_data object via create_data.

input_data_2 = create_data(salmon_or_kallisto = "kallisto",
                           gene_to_transcript = gene_tr_id,
                           kallisto_equiv_classes = kallisto_equiv_classes,
                           kallisto_equiv_counts = kallisto_equiv_counts,
                           kallisto_counts = counts,
                           eff_len = eff_len, n_cores = 2,
                           transcripts_to_keep = transcripts_to_keep)

## Data has been loaded

## Max  69  transcripts per group

## Max  29  genes per group

input_data_2

## A 'BANDITS_data' object with 4 samples and 40 genes.

If transcripts pre-filtering is not wanted, do not specify transcripts_to_keep parameter.

After loading the data, with filter_genes(data, min_counts_per_gene = 20), we remove genes with less than 20 counts overall (i.e., considering all equivalence classes across all samples).

input_data_2 = filter_genes(input_data_2, min_counts_per_gene = 20)

## Initial number of genes: 40; number of selected genes: 40

4.4 Optional (recommended): infer an informative prior for the precision parameter

In this Section we illustrate how to formulate an informative prior for the precision parameter (i.e., the Dirichlet-Multinomial parameter modelling the degree of over-dispersion between samples). Note that this is an optional, yet highly recommended, step.

The prior_precision function builds on top of DRIMSeq’s (Nowicka and Robinson 2016) DRIMSeq::dmPrecision function which provides genewise estimates of the precision parameter. Use the same filtering criteria as in create_data, by choosing the same argument for transcripts_to_keep. If transcript pre-filtering is not performed, leave transcripts_to_keep unspecified.

set.seed(61217)
precision = prior_precision(gene_to_transcript = gene_tr_id,
                            transcript_counts = counts, n_cores = 2,
                            transcripts_to_keep = transcripts_to_keep)

## Estimating gene-wise precision parameters

## Warning in MulticoreParam(workers = n_cores): MulticoreParam() not supported on
## Windows, use SnowParam()

## Estimation completed

The first element of the result contains the mean and standard deviation of the log-precision estimates.

precision$prior

## [1] 3.550311 3.444886

Plot the histogram of the genewise log-precision estimates. The black solid line represents the normally distributed prior distribution for the log-precision parameter.

plot_precision(precision)

4.5 Test for DTU

With test_DTU, we jointly run the MCMC algorithm, to infer the posterior distributions of the parameters, and test for DTU. mean_log_delta and sd_log_delta represent the mean and standard deviation of the informative prior for the log-precision parameter, if available. If an informative prior was not computed, leave mean_log_delta and sd_log_delta fields unspecified.

R and burn_in represent the length of the MCMC chain (excluding the burn-in) and the length of the burn-in (i.e., the initial portion of the chain which is discarded). For genes that are analyzed together (because one or more reads are compatible with multiple genes), R and burn_in are doubled to face the increased complexity of the inferential problem. The method requires at least R = 10^4 and burn_in = 2*10^3. Albeit no difference was observed in simulation studies when increasing these numbers, we encourage users to possibly use higher values (e.g., double) if the computational time allows it.

A convergence diagnostic is used to test if the posterior chains are stationary and to determine if a further fraction of the chain should be discarded as burn-in. If convergence is not reached, the chain is discarded and a second chain is run; if convergence is again not reached, a third chain is run: if three consecutive chains fail to converge, the respective gene is not tested for DTU.

It is highly suggested to speed up computations by parallelizing the method and specifying the number of parallel threads via the n_cores parameter. Before running the MCMC, we set the seed for the random number generation in R.

For genes with a p.value below 0.1, test_DTU runs a second independent MCMC chain, merges it with the first one and tests again for DTU based on the aggregated chain.

The method can technically be run with a single observation per group, however 2 in each group should be regarded as the very minimum sample size.

We run the DTU method. group_col_name indicates the name of the column of samples_design containing the group id of each sample (by default group_col_name = "group").

set.seed(61217)
results = test_DTU(BANDITS_data = input_data,
                   precision = precision$prior,
                   samples_design = samples_design,
                   group_col_name = "group",
                   R = 10^4, burn_in = 2*10^3, n_cores = 2,
                   gene_to_transcript = gene_tr_id)

## Starting the MCMC

## MCMC completed

## Returning results

The output of test_DTU is a BANDITS_test object; results are stored in 3 data.frame objects containing gene level results, transcript level results and convergence output. All results are sorted, by default, according to the significance of the gene level test.

To read a full description of the output from test_DTU, see help(BANDITS_test).

results

## A 'BANDITS_test' object, with 36 gene and 114 transcript level results.

Functions top_genes, top_transcripts and convergence can be used to access gene level results, transcript level results and convergence output, respectively.

Visualize the most significant Genes, sorted by gene level significance.

head(top_genes(results))

##           Gene_id   p.values adj.p.values p.values_inverted
## 1 ENSG00000162585 0.01697824    0.6112167        0.01697824
## 2 ENSG00000162591 0.10309965    0.9604127        0.10309965
## 3 ENSG00000197530 0.11841331    0.9604127        0.11841331
## 4 ENSG00000175756 0.14048954    0.9604127        0.14048954
## 5 ENSG00000160087 0.15605055    0.9604127        0.15605055
## 6 ENSG00000157870 0.19693171    0.9604127        0.19693171
##   adj.p.values_inverted DTU_measure Mean log-prec A Mean log-prec B
## 1             0.6112167   1.1621589        3.978588        3.821453
## 2             0.9604127   0.7241410        3.679925        5.705259
## 3             0.9604127   0.5853724        3.947114        4.309696
## 4             0.9604127   0.5679185        4.736635        6.158727
## 5             0.9604127   0.7097702        3.414481        3.582455
## 6             0.9604127   0.7466154        3.913897        4.911755
##   SD log-prec A SD log-prec B
## 1      1.480332      1.779854
## 2      2.438112      3.907548
## 3      1.343282      1.553065
## 4      2.255980      3.430917
## 5      1.084395      1.713071
## 6      2.141209      2.307289

Alternatively, gene-level results can also be sorted according to “DTU_measure”, which is a measure of the strength of the change between average relative abundances of the two groups.

head(top_genes(results, sort_by = "DTU_measure"))

##            Gene_id   p.values adj.p.values p.values_inverted
## 1  ENSG00000162585 0.01697824    0.6112167        0.01697824
## 6  ENSG00000157870 0.19693171    0.9604127        0.19693171
## 2  ENSG00000162591 0.10309965    0.9604127        0.10309965
## 5  ENSG00000160087 0.15605055    0.9604127        0.15605055
## 11 ENSG00000224870 0.30700584    0.9604127        0.30700584
## 3  ENSG00000197530 0.11841331    0.9604127        0.11841331
##    adj.p.values_inverted DTU_measure Mean log-prec A Mean log-prec B
## 1              0.6112167   1.1621589        3.978588        3.821453
## 6              0.9604127   0.7466154        3.913897        4.911755
## 2              0.9604127   0.7241410        3.679925        5.705259
## 5              0.9604127   0.7097702        3.414481        3.582455
## 11             0.9604127   0.6437350        4.271732        4.364703
## 3              0.9604127   0.5853724        3.947114        4.309696
##    SD log-prec A SD log-prec B
## 1       1.480332      1.779854
## 6       2.141209      2.307289
## 2       2.438112      3.907548
## 5       1.084395      1.713071
## 11      2.406319      3.298832
## 3       1.343282      1.553065

Visualize the most significant transcripts, sorted by transcript level significance.

head(top_transcripts(results, sort_by = "transcript"))

##            Gene_id   Transcript_id    p.values adj.p.values Max_Gene_Tr.p.val
## 1  ENSG00000162585 ENST00000378546 0.001286365    0.1466456         0.6913371
## 2  ENSG00000162585 ENST00000476803 0.009295529    0.5298451         0.7118652
## 36 ENSG00000127054 ENST00000323275 0.019143043    0.7274356         0.3201376
## 7  ENSG00000197530 ENST00000487053 0.043015461    0.8440662         0.2631452
## 15 ENSG00000160087 ENST00000400929 0.055883054    0.8440662         0.5983850
## 12 ENSG00000175756 ENST00000321751 0.055962459    0.8440662         0.4259613
##    Max_Gene_Tr.Adj.p.val     Mean A      Mean B       SD A       SD B
## 1              0.6112167 0.69133712 0.080130852 0.12984010 0.16389710
## 2              0.6112167 0.16091254 0.711865157 0.12244406 0.20377439
## 36             0.9604127 0.08403113 0.004379348 0.02997942 0.01319640
## 7              0.9604127 0.26314521 0.024203470 0.10507619 0.05374769
## 15             0.9604127 0.19800931 0.598384966 0.13117766 0.16767071
## 12             0.9604127 0.42596130 0.067613384 0.15037665 0.14329832

Visualize the convergence output for the most significant genes, sorted by gene level significance.

head(convergence(results))

##           Gene_id converged burn_in
## 1 ENSG00000162585      TRUE       0
## 2 ENSG00000162591      TRUE       0
## 3 ENSG00000197530      TRUE       0
## 4 ENSG00000175756      TRUE       0
## 5 ENSG00000160087      TRUE       0
## 6 ENSG00000157870      TRUE       0

We can further use the gene function to gather all output for a specific gene: gene level, transcript level and convergence results.

top_gene = top_genes(results, n = 1)
gene(results, top_gene$Gene_id)

## $gene_results
##           Gene_id   p.values adj.p.values p.values_inverted
## 1 ENSG00000162585 0.01697824    0.6112167        0.01697824
##   adj.p.values_inverted DTU_measure Mean log-prec A Mean log-prec B
## 1             0.6112167    1.162159        3.978588        3.821453
##   SD log-prec A SD log-prec B
## 1      1.480332      1.779854
## 
## $transcript_results
##           Gene_id   Transcript_id    p.values adj.p.values Max_Gene_Tr.p.val
## 1 ENSG00000162585 ENST00000378546 0.001286365    0.1466456         0.6913371
## 2 ENSG00000162585 ENST00000476803 0.009295529    0.5298451         0.7118652
## 3 ENSG00000162585 ENST00000497675 0.882307884    0.9984094         0.8823079
## 4 ENSG00000162585 ENST00000414253 0.887806443    0.9984094         0.8878064
##   Max_Gene_Tr.Adj.p.val     Mean A     Mean B       SD A       SD B
## 1             0.6112167 0.69133712 0.08013085 0.12984010 0.16389710
## 2             0.6112167 0.16091254 0.71186516 0.12244406 0.20377439
## 3             0.9984094 0.04449123 0.07529528 0.01915288 0.06991532
## 4             0.9984094 0.10325911 0.13270871 0.03918131 0.09277812
## 
## $convergence_results
##           Gene_id converged burn_in
## 1 ENSG00000162585      TRUE       0

Similarly we can use the transcript function to gather all output for a specific transcript.

top_transcript = top_transcripts(results, n = 1)
transcript(results, top_transcript$Transcript_id)

## $transcript_results
##           Gene_id   Transcript_id    p.values adj.p.values Max_Gene_Tr.p.val
## 1 ENSG00000162585 ENST00000378546 0.001286365    0.1466456         0.6913371
##   Max_Gene_Tr.Adj.p.val    Mean A     Mean B      SD A      SD B
## 1             0.6112167 0.6913371 0.08013085 0.1298401 0.1638971
## 
## $gene_results
##           Gene_id   p.values adj.p.values p.values_inverted
## 1 ENSG00000162585 0.01697824    0.6112167        0.01697824
##   adj.p.values_inverted DTU_measure Mean log-prec A Mean log-prec B
## 1             0.6112167    1.162159        3.978588        3.821453
##   SD log-prec A SD log-prec B
## 1      1.480332      1.779854
## 
## $convergence_results
##           Gene_id converged burn_in
## 1 ENSG00000162585      TRUE       0

Finally, we can plot the estimated average transcript relative expression in the two groups for a specific gene via plot_proportions. When CI = TRUE (default), a solid black line is plotted on top of the histograms, indicating the profile Wald type confidence interval (CI) of each transcript relative expression; the level of the CI can be set via CI_level parameter (0.95 by default). Note that the width of the CIs is a consequence of the limited ammount of available data (i.e., few counts); the boundaries are usually much smaller in real datasets.

plot_proportions(results, top_gene$Gene_id, CI = TRUE, CI_level = 0.95)

4.5.1 Results in detail

In this Section we aim to explain in detail the output of test_DTU.

In both, gene- and transcript-level tests, p.values and adj.p.values indicate the p.values and adjusted p.values, where adjusted p.values are obtained via p.adjust, by implementing Benjamini and Hochberg correction.

Gene level results

In gene level results, only for two-group comparisons, we also propose a conservative measure, p.values_inverted, which accounts for the inversion of the dominant transcript (i.e., the most expressed transcript). If the dominant transcript is the same under both groups, \(p.values\_inverted = \sqrt{p.values}\), while if the dominant transcript varies between the two groups, \(p.values\_inverted = p.values\). In other words, when the dominant transcript is unchanged between conditions, we take the square root of the p.value, which results in an inflated value (e.g., \(\sqrt{0.01} = 0.1\)). This measure is based on the observation that often differential splicing leads to a change in the dominant transcript and, given similar p.values, it will rank higher genes with different dominant transcritps between conditions.

We also propose a score, DTU_measure, again only defined for two-group comparisons, which is intended to measure the intensity of the DTU change, similarly to fold changes in differential expression analyses. Consider a gene with K transcripts with relative abundance \(\pi_1^{(A)}, \ldots,\pi_K^{(A)}\), for group \(A\), and \(\pi_1^{(B)}, \ldots,\pi_K^{(B)}\), for group \(B\). DTU_measure is defined as the summation of the absolute difference between the two most expressed transcripts: \(\sum_{k \in \tilde{K} } \left| \pi_k^{(A)} - \pi_k^{(B)} \right|\), where \(\tilde{K}\) indicates the set of two most expressed transcripts across both groups (i.e., adding \(\pi_k^{(A)}\) and \(\pi_k^{(B)}\)). Note that this measure ranges between 0, when proportions are identical between groups, and 2, when an isoform is always expressed in group A and a different transcript is always chosen in group B.

Finally, Mean log-prec group_name and SD log-prec group_name indicate the posterior mean and standard deviation of \(log(\delta)\), i.e., the logarithm of the Dirichlet precision parameter in each group. The precision parameter models the degree of over-dispersion between samples: the higher the precision parameter (or its logarithm), the lower the sample-to-sample variability.

Transcript level results

In transcript level results, Max_Gene_Tr.p.val and Max_Gene_Tr.Adj.p.val are two conservative transcript level measures which account for both, the gene- and transcript-level p.values: they are the maximum between the gene and transcript level p.values and adjusted p.values, respectively. With these measures, a transcript can only be detected as significant if the corresponding gene is also significant.

Finally, Mean group_name and SD group_name indicate the posterior mean and standard deviation of each transcript mean relative abundance.

5 Inference with 3 or more groups

If 3 or more groups are available inference is carried out as in the case with 2 groups described above.

Here we propose re-analyze the previous data assuming a three-group structure. The pipeline exposed above is unchanged, except for the design matrix, which now includes three groups.

samples_design_3_groups = data.frame(sample_id = sample_names,
                            group = c("A", "B", "B", "C"))
samples_design_3_groups

##   sample_id group
## 1   sample1     A
## 2   sample2     B
## 3   sample3     B
## 4   sample4     C

levels(samples_design_3_groups$group)

## NULL

Perform differential splicing:

set.seed(61217)
results_3_groups = test_DTU(BANDITS_data = input_data,
                   precision = precision$prior,
                   samples_design = samples_design_3_groups,
                   group_col_name = "group",
                   R = 10^4, burn_in = 2*10^3, n_cores = 2,
                   gene_to_transcript = gene_tr_id)

## Starting the MCMC

## MCMC completed

## Returning results

results_3_groups

## A 'BANDITS_test' object, with 36 gene and 114 transcript level results.

Below we visualize gene- and transcript-level results tables Note that NaN or NA appear when no counts are available for a specific group of samples; in such cases, the remainig two groups of samples are compared.

head(top_genes(results_3_groups))

##           Gene_id    p.values adj.p.values Mean log-prec A Mean log-prec B
## 1 ENSG00000162585 0.000245893  0.008852148        4.314615        4.945045
## 2 ENSG00000197530 0.004084260  0.073516687        5.068895        4.571605
## 3 ENSG00000162591 0.023557895  0.282694740        5.505407        4.577565
## 4 ENSG00000127054 0.144996214  0.999694674        3.761204        6.543614
## 5 ENSG00000157870 0.168594035  0.999694674        4.197092        6.561975
## 6 ENSG00000224870 0.293557336  0.999694674             NaN        4.655726
##   Mean log-prec C SD log-prec A SD log-prec B SD log-prec C
## 1        4.054503     2.0892756     1.4131710      1.801242
## 2        3.503001     2.9761030     1.8946604      1.669231
## 3        5.310001     3.4378844     2.5531245      3.397084
## 4        3.760759     0.6740063     0.7448304      1.328743
## 5        4.940289     2.3288479     2.3206866      2.157866
## 6        4.033715            NA     3.2155110      3.547926

head(top_transcripts(results_3_groups))

##           Gene_id   Transcript_id     p.values adj.p.values Max_Gene_Tr.p.val
## 1 ENSG00000162585 ENST00000476803 0.0002107879   0.01640667         0.7484760
## 2 ENSG00000162585 ENST00000378546 0.0002878363   0.01640667         0.7121537
## 3 ENSG00000162585 ENST00000414253 0.3779540970   0.99559577         0.3779541
## 4 ENSG00000162585 ENST00000497675 0.9391518779   0.99559577         0.9391519
## 5 ENSG00000197530 ENST00000514234 0.0474270438   0.82412865         0.5293279
## 6 ENSG00000197530 ENST00000487053 0.0578335892   0.82412865         0.2990707
##   Max_Gene_Tr.Adj.p.val     Mean A     Mean B     Mean C       SD A       SD B
## 1            0.01640667 0.03661821 0.19728757 0.74847599 0.10097434 0.15282178
## 2            0.01640667 0.70809252 0.71215372 0.06616992 0.15058401 0.15773103
## 3            0.99559577 0.18440554 0.05306364 0.12439432 0.09024825 0.02716246
## 4            0.99559577 0.07088373 0.03749507 0.06095977 0.06985865 0.01776138
## 5            0.82412865 0.07245208 0.35814625 0.52932786 0.09891193 0.13600730
## 6            0.82412865 0.23438443 0.29907069 0.01561838 0.10929217 0.17292609
##         SD C
## 1 0.15553878
## 2 0.13281362
## 3 0.08241444
## 4 0.04605131
## 5 0.19730717
## 6 0.03356034

We can visualize results from specific gene or transcript.

gene(results_3_groups, top_genes(results_3_groups)$Gene_id[1])

## $gene_results
##           Gene_id    p.values adj.p.values Mean log-prec A Mean log-prec B
## 1 ENSG00000162585 0.000245893  0.008852148        4.314615        4.945045
##   Mean log-prec C SD log-prec A SD log-prec B SD log-prec C
## 1        4.054503      2.089276      1.413171      1.801242
## 
## $transcript_results
##           Gene_id   Transcript_id     p.values adj.p.values Max_Gene_Tr.p.val
## 1 ENSG00000162585 ENST00000476803 0.0002107879   0.01640667         0.7484760
## 2 ENSG00000162585 ENST00000378546 0.0002878363   0.01640667         0.7121537
## 3 ENSG00000162585 ENST00000414253 0.3779540970   0.99559577         0.3779541
## 4 ENSG00000162585 ENST00000497675 0.9391518779   0.99559577         0.9391519
##   Max_Gene_Tr.Adj.p.val     Mean A     Mean B     Mean C       SD A       SD B
## 1            0.01640667 0.03661821 0.19728757 0.74847599 0.10097434 0.15282178
## 2            0.01640667 0.70809252 0.71215372 0.06616992 0.15058401 0.15773103
## 3            0.99559577 0.18440554 0.05306364 0.12439432 0.09024825 0.02716246
## 4            0.99559577 0.07088373 0.03749507 0.06095977 0.06985865 0.01776138
##         SD C
## 1 0.15553878
## 2 0.13281362
## 3 0.08241444
## 4 0.04605131
## 
## $convergence_results
##            Gene_id converged burn_in
## 15 ENSG00000162585      TRUE       0

transcript(results_3_groups, top_transcripts(results_3_groups)$Transcript_id[1])

## $transcript_results
##           Gene_id   Transcript_id     p.values adj.p.values Max_Gene_Tr.p.val
## 1 ENSG00000162585 ENST00000476803 0.0002107879   0.01640667          0.748476
##   Max_Gene_Tr.Adj.p.val     Mean A    Mean B   Mean C      SD A      SD B
## 1            0.01640667 0.03661821 0.1972876 0.748476 0.1009743 0.1528218
##        SD C
## 1 0.1555388
## 
## $gene_results
##           Gene_id    p.values adj.p.values Mean log-prec A Mean log-prec B
## 1 ENSG00000162585 0.000245893  0.008852148        4.314615        4.945045
##   Mean log-prec C SD log-prec A SD log-prec B SD log-prec C
## 1        4.054503      2.089276      1.413171      1.801242
## 
## $convergence_results
##            Gene_id converged burn_in
## 15 ENSG00000162585      TRUE       0

Finally, we can plots the estimated mean transcript relative expression of a specific gene.

plot_proportions(results_3_groups, top_genes(results_3_groups)$Gene_id[1], CI = TRUE, CI_level = 0.95)

6 Inference with 1 group only

If all samples belong to the same experimental condition, differential testing between conditions cannot be performed. Nonetheless, BANDITS can still be used to infer group-level parameters (i.e., mean relative abundance of transcripts and dispersion).

The pipeline is identical to the case exposed above: the only difference concerns the design matrix, which now includes a single group for all samples.

samples_design_1_group = data.frame(sample_id = sample_names,
                            group = c("A", "A", "A", "A"))
samples_design_1_group

##   sample_id group
## 1   sample1     A
## 2   sample2     A
## 3   sample3     A
## 4   sample4     A

levels(samples_design_1_group$group)

## NULL

Inference is again performed via test_DTU function (even though the differential testing itself is not implemented).

set.seed(61217)
results_1_group = test_DTU(BANDITS_data = input_data,
                   precision = precision$prior,
                   samples_design = samples_design_1_group,
                   group_col_name = "group",
                   R = 10^4, burn_in = 2*10^3, n_cores = 2,
                   gene_to_transcript = gene_tr_id)

## One group only is present in 'samples_design$group': 
##   BANDITS will infer model parameters, but will not test for DTU between groups.

## Starting the MCMC

## MCMC completed

## Returning results

results_1_group

## A 'BANDITS_test' object, with 40 gene and 124 transcript level results.

Gene- and transcript-level results can be visualized as above; results are sorted by gene name. Note that now all columns relative to DTU testing are missing (p.values, adjusted p.values, DTU_measure, etc…).

head(top_genes(results_1_group))

##           Gene_id Mean log-prec A SD log-prec A
## 1 ENSG00000008130        4.690661     3.0335145
## 2 ENSG00000069424        5.216317     3.1394239
## 3 ENSG00000078369        4.250802     2.3795708
## 4 ENSG00000078808        7.285707     0.8431086
## 5 ENSG00000107404        5.511837     2.1890870
## 6 ENSG00000116198        4.255726     3.2916620

head(top_transcripts(results_1_group))

##           Gene_id   Transcript_id     Mean A      SD A
## 1 ENSG00000008130 ENST00000341991 0.59974662 0.1372987
## 2 ENSG00000008130 ENST00000341426 0.40025338 0.1372987
## 3 ENSG00000069424 ENST00000378097 0.96760997 0.0694364
## 4 ENSG00000069424 ENST00000378083 0.03239003 0.0694364
## 5 ENSG00000078369 ENST00000378609 0.89301482 0.0871557
## 6 ENSG00000078369 ENST00000610897 0.10698518 0.0871557

We can focus on the results of a specific gene or transcript.

gene(results_1_group, top_genes(results_1_group)$Gene_id[1])

## $gene_results
##           Gene_id Mean log-prec A SD log-prec A
## 1 ENSG00000008130        4.690661      3.033514
## 
## $transcript_results
##           Gene_id   Transcript_id    Mean A      SD A
## 1 ENSG00000008130 ENST00000341991 0.5997466 0.1372987
## 2 ENSG00000008130 ENST00000341426 0.4002534 0.1372987
## 
## $convergence_results
##            Gene_id converged burn_in
## 19 ENSG00000008130      TRUE       0

transcript(results_1_group, top_transcripts(results_1_group)$Transcript_id[1])

## $transcript_results
##           Gene_id   Transcript_id    Mean A      SD A
## 1 ENSG00000008130 ENST00000341991 0.5997466 0.1372987
## 
## $gene_results
##           Gene_id Mean log-prec A SD log-prec A
## 1 ENSG00000008130        4.690661      3.033514
## 
## $convergence_results
##            Gene_id converged burn_in
## 19 ENSG00000008130      TRUE       0

Finally, we can plots the estimated mean transcript relative expression of a specific gene.

plot_proportions(results_1_group, top_genes(results)$Gene_id[1], CI = TRUE, CI_level = 0.95)

7 Session info

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] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] tximport_1.22.0  BANDITS_1.10.0   BiocStyle_2.22.0
## 
## loaded via a namespace (and not attached):
##  [1] sass_0.4.0             edgeR_3.36.0           bit64_4.0.5           
##  [4] vroom_1.5.5            jsonlite_1.7.2         foreach_1.5.1         
##  [7] bslib_0.3.1            assertthat_0.2.1       BiocManager_1.30.16   
## [10] highr_0.9              stats4_4.1.1           doRNG_1.8.2           
## [13] GenomeInfoDbData_1.2.7 yaml_2.2.1             pillar_1.6.4          
## [16] lattice_0.20-45        glue_1.4.2             limma_3.50.0          
## [19] digest_0.6.28          GenomicRanges_1.46.0   XVector_0.34.0        
## [22] colorspace_2.0-2       htmltools_0.5.2        plyr_1.8.6            
## [25] pkgconfig_2.0.3        magick_2.7.3           bookdown_0.24         
## [28] zlibbioc_1.40.0        purrr_0.3.4            scales_1.1.1          
## [31] tzdb_0.1.2             BiocParallel_1.28.0    tibble_3.1.5          
## [34] farver_2.1.0           generics_0.1.1         IRanges_2.28.0        
## [37] ggplot2_3.3.5          ellipsis_0.3.2         BiocGenerics_0.40.0   
## [40] magrittr_2.0.1         crayon_1.4.1           evaluate_0.14         
## [43] fansi_0.5.0            doParallel_1.0.16      MASS_7.3-54           
## [46] tools_4.1.1            data.table_1.14.2      hms_1.1.1             
## [49] lifecycle_1.0.1        stringr_1.4.0          S4Vectors_0.32.0      
## [52] munsell_0.5.0          locfit_1.5-9.4         rngtools_1.5.2        
## [55] compiler_4.1.1         jquerylib_0.1.4        GenomeInfoDb_1.30.0   
## [58] rlang_0.4.12           grid_4.1.1             RCurl_1.98-1.5        
## [61] iterators_1.0.13       DRIMSeq_1.22.0         labeling_0.4.2        
## [64] bitops_1.0-7           rmarkdown_2.11         gtable_0.3.0          
## [67] codetools_0.2-18       DBI_1.1.1              reshape2_1.4.4        
## [70] R6_2.5.1               knitr_1.36             dplyr_1.0.7           
## [73] fastmap_1.1.0          bit_4.0.4              utf8_1.2.2            
## [76] readr_2.0.2            stringi_1.7.5          parallel_4.1.1        
## [79] Rcpp_1.0.7             vctrs_0.3.8            tidyselect_1.1.1      
## [82] xfun_0.27

References

Bray, Nicolas L, Harold Pimentel, Páll Melsted, and Lior Pachter. 2016. “Near-Optimal Probabilistic Rna-Seq Quantification.” Nature Biotechnology 34 (5): 525.

Dobin, Alexander, Carrie A Davis, Felix Schlesinger, Jorg Drenkow, Chris Zaleski, Sonali Jha, Philippe Batut, Mark Chaisson, and Thomas R Gingeras. 2013. “STAR: Ultrafast Universal Rna-Seq Aligner.” Bioinformatics 29 (1): 15–21.

Lawrence, Michael, Wolfgang Huber, Hervé Pages, Patrick Aboyoun, Marc Carlson, Robert Gentleman, Martin T Morgan, and Vincent J Carey. 2013. “Software for Computing and Annotating Genomic Ranges.” PLoS Computational Biology 9 (8): e1003118.

Nowicka, Malgorzata, and Mark D. Robinson. 2016. “DRIMSeq: A Dirichlet-Multinomial Framework for Multivariate Count Outcomes in Genomics.” F1000Research 5 (1356).

Pagès, H., P. Aboyoun, R. Gentleman, and S. DebRoy. 2019. Biostrings: Efficient Manipulation of Biological Strings.

Patro, Rob, Geet Duggal, Michael I Love, Rafael A Irizarry, and Carl Kingsford. 2017. “Salmon Provides Fast and Bias-Aware Quantification of Transcript Expression.” Nature Methods 14 (4): 417.

Soneson, Charlotte, Michael I. Love, and Mark D. Robinson. 2015. “Differential Analyses for Rna-Seq: Transcript-Level Estimates Improve Gene-Level Inferences.” F1000Research 4 (1521).

BANDITS: Bayesian ANalysis of DIfferenTial Splicing

10/26/2021

Package

Contents