Epiregulon tutorial with MultiAssayExperiment
1 June 2026
Package
epiregulon 2.3.2
Contents
- 1 Introduction
- 2 Installation
- 3 Data preparation
- 4 Quick start
- 4.1 Retrieve bulk TF ChIP-seq binding sites
- 4.2 Link ATAC-seq peaks to target genes
- 4.3 Add TF motif binding to peaks
- 4.4 Generate regulons
- 4.5 Network pruning (highly recommended)
- 4.6 Add Weights
- 4.7 Annotate with TF motifs (Optional)
- 4.8 Annotate with log fold changes (Optional)
- 4.9 Calculate TF activity
- 5 Session Info
1 Introduction
Gene regulatory networks model the underlying gene regulation hierarchies that drive gene expression and cell states. The main functions of this package are to construct gene regulatory networks and infer transcription factor (TF) activity at the single cell level by integrating scATAC-seq and scRNA-seq data and incorporating of public bulk TF ChIP-seq data.
There are three related packages: epiregulon, epiregulon.extra and epiregulon.archr, the two of which are available through Bioconductor and the last of which is only available through github. The basic epiregulon package takes in gene expression and chromatin accessibility matrices in the form of SingleCellExperiment objects, constructs gene regulatory networks (“regulons”) and outputs the activity of transcription factors at the single cell level. The epiregulon.extra package provides a suite of tools for enrichment analysis of target genes, visualization of target genes and transcription factor activity, and network analysis which can be run on the epiregulon output. If the users would like to start from ArchR projects instead of SingleCellExperiment objects, they may choose to use epiregulon.archr package, which allows for seamless integration with the ArchR package, and continue with the rest of the workflow offered in epiregulon.extra.
For full documentation of the epiregulon package, please refer to the epiregulon book.
2 Installation
if (!require("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("epiregulon")
Alternatively, you could install from github
devtools::install_github(repo ='xiaosaiyao/epiregulon')Load package
library(epiregulon)3 Data preparation
Prior to using epiregulon, single cell preprocessing needs to performed by user’s favorite methods. The following components are required:
1. Peak matrix from scATAC-seq containing the chromatin accessibility information
2. Gene expression matrix from either paired or unpaired scRNA-seq. RNA-seq integration needs to be performed for unpaired dataset.
3. Dimensionality reduction matrix from either single modality dataset or joint scRNA-seq and scATAC-seq
This tutorial demonstrates the basic functions of epiregulon, using the reprogram-seq dataset which can be downloaded from the scMultiome package. In this example, prostate cancer cells (LNCaP) were infected in separate wells with viruses encoding 4 transcription factors (NKX2-1, GATA6, FOXA1 and FOXA2) and a positive control (mNeonGreen) before pooling. The identity of the infected transcription factors was tracked through cell hashing (available in the field hash_assignment of the colData) and serves as the ground truth.
# load the MAE object
library(scMultiome)
mae <- scMultiome::reprogramSeq()
# extract peak matrix
PeakMatrix <- mae[["PeakMatrix"]]
# extract expression matrix
GeneExpressionMatrix <- mae[["GeneExpressionMatrix"]]
rownames(GeneExpressionMatrix) <- rowData(GeneExpressionMatrix)$name
# define the order of hash_assigment
GeneExpressionMatrix$hash_assignment <-
factor(as.character(GeneExpressionMatrix$hash_assignment),
levels = c("HTO10_GATA6_UTR", "HTO2_GATA6_v2",
"HTO8_NKX2.1_UTR", "HTO3_NKX2.1_v2",
"HTO1_FOXA2_v2", "HTO4_mFOXA1_v2", "HTO6_hFOXA1_UTR",
"HTO5_NeonG_v2"))
# extract dimensional reduction matrix
reducedDimMatrix <- reducedDim(mae[['TileMatrix500']], "LSI_ATAC")
# transfer UMAP_combined from TileMatrix to GeneExpressionMatrix
reducedDim(GeneExpressionMatrix, "UMAP_Combined") <-
reducedDim(mae[['TileMatrix500']], "UMAP_Combined")Visualize singleCellExperiment by UMAP
scater::plotReducedDim(GeneExpressionMatrix,
dimred = "UMAP_Combined",
text_by = "Clusters",
colour_by = "Clusters")
4 Quick start
4.1 Retrieve bulk TF ChIP-seq binding sites
First, we retrieve a GRangesList object containing the binding sites of all the transcription factors and co-regulators. These binding sites are derived from bulk ChIP-seq data in the ChIP-Atlas and ENCODE databases. For the same transcription factor, multiple ChIP-seq files from different cell lines or tissues are merged. For further information on how these peaks are derived, please refer to ?epiregulon::getTFMotifInfo. Currently, human genomes hg19 and hg38 and mouse mm10 are supported.
grl <- getTFMotifInfo(genome = "hg38")
#> Retrieving chip-seq data, version 2
#> see ?scMultiome and browseVignettes('scMultiome') for documentation
#> loading from cache
grl
#> GRangesList object of length 1377:
#> $AEBP2
#> GRanges object with 2700 ranges and 0 metadata columns:
#> seqnames ranges strand
#> <Rle> <IRanges> <Rle>
#> [1] chr1 9792-10446 *
#> [2] chr1 942105-942400 *
#> [3] chr1 984486-984781 *
#> [4] chr1 3068932-3069282 *
#> [5] chr1 3069411-3069950 *
#> ... ... ... ...
#> [2696] chrY 8465261-8465730 *
#> [2697] chrY 11721744-11722260 *
#> [2698] chrY 11747448-11747964 *
#> [2699] chrY 19302661-19303134 *
#> [2700] chrY 19985662-19985982 *
#> -------
#> seqinfo: 25 sequences from an unspecified genome; no seqlengths
#>
#> ...
#> <1376 more elements>We recommend the use of ChIP-seq data over motif for estimating TF occupancy. However, if the user would like to start from motifs, it is possible to switch to the motif mode. The user can provide the peak regions as a GRanges object and the location of the motifs will be annotated based on Cisbp from chromVARmotifs (human_pwms_v2 and mouse_pwms_v2, version 0.2)
grl.motif <- getTFMotifInfo(genome = "hg38",
mode = "motif",
peaks = rowRanges(PeakMatrix))4.2 Link ATAC-seq peaks to target genes
Next, we try to link ATAC-seq peaks to their putative target genes. We assign a peak to a gene within a size window (default ±250kb) if the chromatin accessibility of the peak and expression of the target genes are highly correlated (default p-vale threshold 0.05). To compute correlations, we first create cell aggregates by performing k-means clustering on the reduced dimensionality matrix. Then we aggregate the counts of the gene expression and peak matrix and average across the number of cells. Correlations are computed on the averaged gene expression and chromatin accessibility.
4.2.1 Optimize the number of metacells (Optional)
The number of metacells used to aggregate cells into meta-cells is a sensitive parameter, as it should strike the correct balance between averaging out biological variation and reducing signal noise caused by sparsity in single cells. Therefore, we provide a separate function, optimizeMetacellNumber, to automatically select the optimal value for this parameter. The algorithm samples different possible values and calculates the mean empirical p-value of RE–TG connections for each value. Then, a quadratic regression is fitted to the relationship, and the minimum of the function is determined.
cellNum <- optimizeMetacellNumber(peakMatrix = PeakMatrix,
expMatrix = GeneExpressionMatrix,
reducedDim = reducedDimMatrix,
exp_assay = "normalizedCounts",
peak_assay = "counts",
BPPARAM = BiocParallel::SerialParam(progressbar = FALSE))
#> Warning in clusterKmeans(t(as.matrix(reducedDim)), k = kNum): convergence
#> failure for k-means
#> Warning in clusterKmeans(t(as.matrix(reducedDim)), k = kNum): convergence
#> failure for k-meansWe can plot the results to make sure that the relationship is correctly generalized.
plot(cellNum)
4.2.2 Calculate Peak to Gene Links
The output of optimizeMetacellNumber function is then passed to calculateP2G as cellNum argument. Alternatively, users may skip optimizeMetacellNumber and specify their own cell number in cellNum.
set.seed(1010)
p2g <- calculateP2G(peakMatrix = PeakMatrix,
expMatrix = GeneExpressionMatrix,
reducedDim = reducedDimMatrix,
exp_assay = "normalizedCounts",
peak_assay = "counts",
cellNum = cellNum,
BPPARAM = BiocParallel::SerialParam(progressbar = FALSE))
#> Using epiregulon to compute peak to gene links...
#> Creating metacells...
#> Looking for regulatory elements near target genes...
#> Computing correlations...
p2g
#> DataFrame with 27919 rows and 10 columns
#> idxATAC chr start end idxRNA target Correlation
#> <integer> <character> <integer> <integer> <integer> <array> <matrix>
#> 1 1 chr1 817121 817621 15 LINC01409 -0.374962
#> 2 8 chr1 917255 917755 30 HES4 0.675569
#> 3 8 chr1 917255 917755 33 AGRN -0.433029
#> 4 9 chr1 920452 920952 31 ISG15 -0.338024
#> 5 10 chr1 920987 921487 25 NOC2L -0.346283
#> ... ... ... ... ... ... ... ...
#> 27915 126572 chrX 154546500 154547000 36401 LAGE3 -0.563942
#> 27916 126572 chrX 154546500 154547000 36403 SLC10A3 -0.530112
#> 27917 126573 chrX 154547004 154547504 36397 ATP6AP1 -0.427051
#> 27918 126573 chrX 154547004 154547504 36404 FAM3A -0.492612
#> 27919 126590 chrX 155228844 155229344 36426 CLIC2 0.676279
#> p_val_peak_gene FDR_peak_gene distance
#> <matrix> <matrix> <integer>
#> 1 0.0279234 0.893515 38363
#> 2 0.0122316 0.890431 82224
#> 3 0.0123176 0.890431 102363
#> 4 0.0454667 0.902089 80184
#> 5 0.0409164 0.902089 37767
#> ... ... ... ...
#> 27915 0.00119088 0.749836 67243
#> 27916 0.00216846 0.791979 55886
#> 27917 0.01345515 0.890431 118327
#> 27918 0.00447912 0.830784 30888
#> 27919 0.01216306 0.890431 1052684.3 Add TF motif binding to peaks
The next step is to add the TF binding information by overlapping regions of the peak matrix with the bulk chip-seq database. The output is a data frame object with three columns:
idxATAC- index of the peak in the peak matrixidxTF- index in the gene expression matrix corresponding to the transcription factortf- name of the transcription factor
overlap <- addTFMotifInfo(grl = grl,
p2g = p2g,
peakMatrix = PeakMatrix)
#> Computing overlap...
#> Success!
head(overlap)
#> idxATAC idxTF tf
#> 1 1 16 ATF1
#> 2 1 17 ATF2
#> 3 1 18 ATF3
#> 4 1 21 ATF7
#> 5 1 35 BRCA2
#> 6 1 36 BRD44.4 Generate regulons
A DataFrame, representing the inferred regulons, is then generated. The DataFrame consists of ten columns:
idxATAC- index of the peak in the peak matrixchr- chromosome numberstart- start position of the peakend- end position of the peakidxRNA- index in the gene expression matrix corresponding to the target genetarget- name of the target genedistance- distance between the transcription start site of the target gene and the middle of the peakidxTF- index in the gene expression matrix corresponding to the transcription factortf- name of the transcription factorcorr- correlation between target gene expression and the chromatin accessibility at the peak. if cluster labels are provided, this field is a matrix with columns names corresponding to correlation across all cells and for each of the clusters.
regulon <- getRegulon(p2g = p2g,
overlap = overlap)
regulon
#> DataFrame with 5159635 rows and 12 columns
#> idxATAC chr start end idxRNA target corr
#> <integer> <character> <integer> <integer> <integer> <array> <matrix>
#> 1 1 chr1 817121 817621 15 LINC01409 -0.374962
#> 2 1 chr1 817121 817621 15 LINC01409 -0.374962
#> 3 1 chr1 817121 817621 15 LINC01409 -0.374962
#> 4 1 chr1 817121 817621 15 LINC01409 -0.374962
#> 5 1 chr1 817121 817621 15 LINC01409 -0.374962
#> ... ... ... ... ... ... ... ...
#> 5159631 126573 chrX 154547004 154547504 36404 FAM3A -0.492612
#> 5159632 126573 chrX 154547004 154547504 36404 FAM3A -0.492612
#> 5159633 126590 chrX 155228844 155229344 36426 CLIC2 0.676279
#> 5159634 126590 chrX 155228844 155229344 36426 CLIC2 0.676279
#> 5159635 126590 chrX 155228844 155229344 36426 CLIC2 0.676279
#> p_val_peak_gene FDR_peak_gene distance idxTF tf
#> <matrix> <matrix> <integer> <integer> <character>
#> 1 0.0279234 0.893515 38363 16 ATF1
#> 2 0.0279234 0.893515 38363 17 ATF2
#> 3 0.0279234 0.893515 38363 18 ATF3
#> 4 0.0279234 0.893515 38363 21 ATF7
#> 5 0.0279234 0.893515 38363 35 BRCA2
#> ... ... ... ... ... ...
#> 5159631 0.00447912 0.830784 30888 1376 ZXDB
#> 5159632 0.00447912 0.830784 30888 1377 ZXDC
#> 5159633 0.01216306 0.890431 105268 114 FOXA1
#> 5159634 0.01216306 0.890431 105268 128 GATA2
#> 5159635 0.01216306 0.890431 105268 823 SUMO24.5 Network pruning (highly recommended)
Epiregulon prunes the network by performing tests of independence on the observed number of cells jointly expressing transcription factor (TF), regulatory element (RE) and target gene (TG) vs the expected number of cells if TF/RE and TG are independently expressed. The users can choose between two tests, the binomial test and the chi-square test. In the binomial test, the expected probability is P(TF, RE) * P(TG), and the number of trials is the total number of cells, and the observed successes is the number of cells jointly expressing all three elements. In the chi-square test, the expected probability for having all 3 elements active is also P(TF, RE) * P(TG) and the probability otherwise is 1- P(TF, RE) * P(TG). The observed cell count for the category of “active TF” is the number of cells jointly expressing all three elements, and the cell count for the inactive category is n - n_triple.
We calculate cluster-specific p-values if users supply cluster labels. This is useful if we are interested in cluster-specific networks. The pruned regulons can then be used to visualize differential networks for transcription factors of interest.
pruned.regulon <- pruneRegulon(expMatrix = GeneExpressionMatrix,
exp_assay = "normalizedCounts",
peakMatrix = PeakMatrix,
peak_assay = "counts",
test = "chi.sq",
regulon = regulon[regulon$tf %in%
c("NKX2-1","GATA6","FOXA1","FOXA2", "AR"),],
clusters = GeneExpressionMatrix$Clusters,
prune_value = "pval",
regulon_cutoff = 0.05
)
pruned.regulon4.6 Add Weights
While the pruneRegulon function provides statistics on the joint occurrence of TF-RE-TG, we would like to further estimate the strength of regulation. Biologically, this can be interpreted as the magnitude of gene expression changes induced by transcription factor activity. Epiregulon estimates the regulatory potential using one of the three measures: 1) correlation between TF and target gene expression, 2) mutual information between the TF and target gene expression and 3) Wilcoxon test statistics of target gene expression in cells jointly expressing all 3 elements vs cells that do not.
Two of the measures (correlation and Wilcoxon statistics) give both the magnitude and directionality of changes whereas mutual information is always positive. The correlation and mutual information statistics are computed on pseudobulks aggregated by user-supplied cluster labels, whereas the Wilcoxon method groups cells into two categories: 1) the active category of cells jointly expressing TF, RE and TG and 2) the inactive category consisting of the remaining cells.
We calculate cluster-specific weights if users supply cluster labels.
regulon.w <- addWeights(regulon = pruned.regulon,
expMatrix = GeneExpressionMatrix,
exp_assay = "normalizedCounts",
peakMatrix = PeakMatrix,
peak_assay = "counts",
clusters = GeneExpressionMatrix$Clusters,
method = "wilcox")
regulon.w
4.7 Annotate with TF motifs (Optional)
So far the gene regulatory network was constructed from TF ChIP-seq exclusively. Some users would prefer to further annotate regulatory elements with the presence of motifs. We provide an option to annotate peaks with motifs from the Cisbp database. If no motifs are present for this particular factor (as in the case of co-factors or chromatin modifiers), we return NA. If motifs are available for a factor and the RE contains a motif, we return 1. If motifs are available and the RE does not contain a motif, we return 0. The users can also provide their own motif annotation through the pwms argument.
regulon.w.motif <- addMotifScore(regulon = regulon.w,
peaks = rowRanges(PeakMatrix),
species = "human",
genome = "hg38")
#> annotating peaks with motifs
#> see ?scMultiome and browseVignettes('scMultiome') for documentation
#> loading from cache
#>
#> Attaching package: 'Biostrings'
#> The following object is masked from 'package:base':
#>
#> strsplit
#>
#> Attaching package: 'rtracklayer'
#> The following object is masked from 'package:AnnotationHub':
#>
#> hubUrl
# if desired, set weight to 0 if no motif is found
regulon.w.motif$weight[regulon.w.motif$motif == 0] <- 0
regulon.w.motif
#> DataFrame with 12063 rows and 17 columns
#> idxATAC chr start end idxRNA target corr
#> <integer> <character> <integer> <integer> <integer> <array> <matrix>
#> 1 9 chr1 920452 920952 31 ISG15 -0.338024
#> 2 16 chr1 941458 941958 17 LINC01128 0.522552
#> 3 22 chr1 960317 960817 26 KLHL17 -0.373585
#> 4 22 chr1 960317 960817 33 AGRN 0.719557
#> 5 23 chr1 966150 966650 33 AGRN -0.464943
#> ... ... ... ... ... ... ... ...
#> 12059 123380 chr9 128635245 128635745 35034 SPTAN1 0.779207
#> 12060 123406 chr9 128852014 128852514 35043 ZER1 0.505503
#> 12061 123501 chr9 129835079 129835579 35085 C9orf78 -0.344725
#> 12062 124803 chrX 40580656 40581156 35542 CXorf38 -0.487820
#> 12063 124958 chrX 46923518 46924018 35584 JADE3 0.629251
#> p_val_peak_gene FDR_peak_gene distance idxTF tf
#> <matrix> <matrix> <integer> <integer> <character>
#> 1 0.04546666 0.902089 80184 485 AR
#> 2 0.04220490 0.902089 113860 485 AR
#> 3 0.02842111 0.893515 0 485 AR
#> 4 0.00818492 0.875211 59301 485 AR
#> 5 0.00712750 0.864783 53468 485 AR
#> ... ... ... ... ... ...
#> 12059 0.00418391 0.820080 82687 723 NKX2-1
#> 12060 0.04755481 0.902089 80087 723 NKX2-1
#> 12061 0.04185848 0.902089 0 723 NKX2-1
#> 12062 0.00478129 0.830784 66363 723 NKX2-1
#> 12063 0.01819886 0.890431 11242 723 NKX2-1
#> pval stats qval
#> <matrix> <matrix> <matrix>
#> 1 0.09133265:5.00936e-01:1:... 2.85073: 0.452952:0:... 1:1:1:...
#> 2 0.00862237:6.20990e-01:1:... 6.89942: 0.244479:0:... 1:1:1:...
#> 3 0.02761151:2.18839e-05:1:... 4.85216:18.017889:0:... 1:1:1:...
#> 4 0.04426197:5.07662e-01:1:... 4.04654: 0.438884:0:... 1:1:1:...
#> 5 0.23876894:8.83168e-03:1:... 1.38785: 6.856553:0:... 1:1:1:...
#> ... ... ... ...
#> 12059 4.51202e-02:1:1:... 4.01414:0:0:... 1.00000000:1:1:...
#> 12060 9.96789e-04:1:1:... 10.83352:0:0:... 1.00000000:1:1:...
#> 12061 2.50968e-02:1:1:... 5.01720:0:0:... 1.00000000:1:1:...
#> 12062 1.56666e-08:1:1:... 31.96884:0:0:... 0.00112748:1:1:...
#> 12063 1.94627e-02:1:1:... 5.45945:0:0:... 1.00000000:1:1:...
#> weight motif
#> <matrix> <numeric>
#> 1 0:0:0:... 0
#> 2 0:0:0:... 0
#> 3 0:0:0:... 0
#> 4 0:0:0:... 0
#> 5 0:0:0:... 0
#> ... ... ...
#> 12059 0:0:0:... 0
#> 12060 0:0:0:... 0
#> 12061 0:0:0:... 0
#> 12062 0:0:0:... 0
#> 12063 0:0:0:... 04.8 Annotate with log fold changes (Optional)
It is sometimes helpful to filter the regulons based on gene expression changes between two conditions. The addLogFC function is adapted from scran::findMarkers and adds extra columns of log changes to the regulon DataFrame. The users can specify the reference condition in logFC_ref and conditions for comparison in
logFC_condition. If these are not provided, log fold changes are calculated for every condition in the cluster labels against the rest of the conditions.
# create logcounts
GeneExpressionMatrix <- scuttle::logNormCounts(GeneExpressionMatrix)
#> Warning in .library_size_factors(assay(x, assay.type), ...): 'librarySizeFactors' is deprecated.
#> Use 'scrapper::centerSizeFactors' instead.
#> See help("Deprecated")
#> Warning in .local(x, ...): 'normalizeCounts' is deprecated.
#> Use 'scrapper::normalizeCounts' instead.
#> See help("Deprecated")
# add log fold changes which are calculated by taking the difference of the log counts
regulon.w <- addLogFC(regulon = regulon.w,
clusters = GeneExpressionMatrix$hash_assignment,
expMatrix = GeneExpressionMatrix,
assay.type = "logcounts",
pval.type = "any",
logFC_condition = c("HTO10_GATA6_UTR",
"HTO2_GATA6_v2",
"HTO8_NKX2.1_UTR"),
logFC_ref = "HTO5_NeonG_v2")
regulon.w
#> DataFrame with 12063 rows and 22 columns
#> idxATAC chr start end idxRNA target corr
#> <integer> <character> <integer> <integer> <integer> <array> <matrix>
#> 1 9 chr1 920452 920952 31 ISG15 -0.338024
#> 2 16 chr1 941458 941958 17 LINC01128 0.522552
#> 3 22 chr1 960317 960817 26 KLHL17 -0.373585
#> 4 22 chr1 960317 960817 33 AGRN 0.719557
#> 5 23 chr1 966150 966650 33 AGRN -0.464943
#> ... ... ... ... ... ... ... ...
#> 12059 123380 chr9 128635245 128635745 35034 SPTAN1 0.779207
#> 12060 123406 chr9 128852014 128852514 35043 ZER1 0.505503
#> 12061 123501 chr9 129835079 129835579 35085 C9orf78 -0.344725
#> 12062 124803 chrX 40580656 40581156 35542 CXorf38 -0.487820
#> 12063 124958 chrX 46923518 46924018 35584 JADE3 0.629251
#> p_val_peak_gene FDR_peak_gene distance idxTF tf
#> <matrix> <matrix> <integer> <integer> <character>
#> 1 0.04546666 0.902089 80184 485 AR
#> 2 0.04220490 0.902089 113860 485 AR
#> 3 0.02842111 0.893515 0 485 AR
#> 4 0.00818492 0.875211 59301 485 AR
#> 5 0.00712750 0.864783 53468 485 AR
#> ... ... ... ... ... ...
#> 12059 0.00418391 0.820080 82687 723 NKX2-1
#> 12060 0.04755481 0.902089 80087 723 NKX2-1
#> 12061 0.04185848 0.902089 0 723 NKX2-1
#> 12062 0.00478129 0.830784 66363 723 NKX2-1
#> 12063 0.01819886 0.890431 11242 723 NKX2-1
#> pval stats qval
#> <matrix> <matrix> <matrix>
#> 1 0.09133265:5.00936e-01:1:... 2.85073: 0.452952:0:... 1:1:1:...
#> 2 0.00862237:6.20990e-01:1:... 6.89942: 0.244479:0:... 1:1:1:...
#> 3 0.02761151:2.18839e-05:1:... 4.85216:18.017889:0:... 1:1:1:...
#> 4 0.04426197:5.07662e-01:1:... 4.04654: 0.438884:0:... 1:1:1:...
#> 5 0.23876894:8.83168e-03:1:... 1.38785: 6.856553:0:... 1:1:1:...
#> ... ... ... ...
#> 12059 4.51202e-02:1:1:... 4.01414:0:0:... 1.00000000:1:1:...
#> 12060 9.96789e-04:1:1:... 10.83352:0:0:... 1.00000000:1:1:...
#> 12061 2.50968e-02:1:1:... 5.01720:0:0:... 1.00000000:1:1:...
#> 12062 1.56666e-08:1:1:... 31.96884:0:0:... 0.00112748:1:1:...
#> 12063 1.94627e-02:1:1:... 5.45945:0:0:... 1.00000000:1:1:...
#> weight HTO10_GATA6_UTR.vs.HTO5_NeonG_v2.FDR
#> <matrix> <numeric>
#> 1 0.0335544:-0.0330727:0:... NaN
#> 2 0.0434745:-0.0250648:0:... NaN
#> 3 0.0416140: 0.2082758:0:... NaN
#> 4 0.0364119:-0.0405646:0:... NaN
#> 5 0.0269710: 0.1530211:0:... NaN
#> ... ... ...
#> 12059 0.0277381:0:0:... NaN
#> 12060 0.0492515:0:0:... NaN
#> 12061 0.0354670:0:0:... NaN
#> 12062 0.0880546:0:0:... NaN
#> 12063 0.0351312:0:0:... NaN
#> HTO10_GATA6_UTR.vs.HTO5_NeonG_v2.logFC HTO2_GATA6_v2.vs.HTO5_NeonG_v2.FDR
#> <numeric> <numeric>
#> 1 -0.02221880 NaN
#> 2 -0.07544703 NaN
#> 3 -0.00351376 NaN
#> 4 0.06228930 NaN
#> 5 0.06228930 NaN
#> ... ... ...
#> 12059 0.05722383 NaN
#> 12060 -0.00312201 NaN
#> 12061 -0.00154142 NaN
#> 12062 0.01888775 NaN
#> 12063 0.01430791 NaN
#> HTO2_GATA6_v2.vs.HTO5_NeonG_v2.logFC HTO8_NKX2.1_UTR.vs.HTO5_NeonG_v2.FDR
#> <numeric> <numeric>
#> 1 -0.0266360 NaN
#> 2 -0.0761566 NaN
#> 3 0.0118404 NaN
#> 4 0.0647027 NaN
#> 5 0.0647027 NaN
#> ... ... ...
#> 12059 1.11046e-01 NaN
#> 12060 -3.83218e-05 NaN
#> 12061 2.20651e-03 NaN
#> 12062 2.78727e-02 NaN
#> 12063 4.47018e-02 NaN
#> HTO8_NKX2.1_UTR.vs.HTO5_NeonG_v2.logFC
#> <numeric>
#> 1 0.00444303
#> 2 -0.02293881
#> 3 -0.00280748
#> 4 0.02476163
#> 5 0.02476163
#> ... ...
#> 12059 0.0314664
#> 12060 0.0300958
#> 12061 -0.0057732
#> 12062 0.0214269
#> 12063 0.03220934.9 Calculate TF activity
Finally, the activities for a specific TF in each cell are computed by averaging expressions of target genes linked to the TF weighted by the test statistics of choice, chosen from either correlation, mutual information or the Wilcoxon test statistics. \[y=\frac{1}{n}\sum_{i=1}^{n} x_i * weights_i\] where \(y\) is the activity of a TF for a cell, \(n\) is the total number of targets for a TF, \(x_i\) is the log count expression of target \(i\) where \(i\) in {1,2,…,n} and \(weights_i\) is the weight of TF - target \(i\)
score.combine <- calculateActivity(expMatrix = GeneExpressionMatrix,
regulon = regulon.w,
mode = "weight",
method = "weightedMean",
exp_assay = "normalizedCounts",
normalize = FALSE)
#> Warning in calculateActivity(expMatrix = GeneExpressionMatrix, regulon =
#> regulon.w, : Argument 'method' to calculateActivity was deprecated as of
#> epiregulon version 2.0.0
#> calculating TF activity from regulon using weightedMean
#> Warning in calculateActivity(expMatrix = GeneExpressionMatrix, regulon = regulon.w, : The weight column contains multiple subcolumns but no cluster information was provided.
#> Using first column to compute activity...
#> aggregating regulons...
#> creating weight matrix...
#> calculating activity scores...
#> normalize by the number of targets...
score.combine[1:5,1:5]
#> 5 x 5 sparse Matrix of class "dgCMatrix"
#> reprogram#TTAGGAACAAGGTACG-1 reprogram#GAGCGGTCAACCTGGT-1
#> AR 0.01756648 0.01976998
#> FOXA1 0.01681681 0.01650981
#> FOXA2 0.01713106 0.02287826
#> GATA6 0.01595157 0.05930300
#> NKX2-1 0.03114208 0.01771367
#> reprogram#TTATAGCCACCCTCAC-1 reprogram#TGGTGATTCCTGTTCA-1
#> AR 0.011043196 0.010953425
#> FOXA1 0.010840415 0.010703133
#> FOXA2 0.015159471 0.013702580
#> GATA6 0.009628907 0.008339553
#> NKX2-1 0.012124902 0.010462543
#> reprogram#TCGGTTCTCACTAGGT-1
#> AR 0.01809050
#> FOXA1 0.01664966
#> FOXA2 0.01715385
#> GATA6 0.01319973
#> NKX2-1 0.027922815 Session Info
sessionInfo()
#> R version 4.6.0 RC (2026-04-17 r89917)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04.4 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.24-bioc/R/lib/libRblas.so
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.12.0 LAPACK version 3.12.0
#>
#> locale:
#> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
#> [3] LC_TIME=en_GB LC_COLLATE=C
#> [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
#> [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
#> [9] LC_ADDRESS=C LC_TELEPHONE=C
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
#>
#> time zone: America/New_York
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] BSgenome.Hsapiens.UCSC.hg38_1.4.5 BSgenome_1.81.0
#> [3] rtracklayer_1.73.0 BiocIO_1.23.3
#> [5] Biostrings_2.81.2 XVector_0.53.0
#> [7] GenomeInfoDb_1.49.1 scMultiome_1.13.0
#> [9] MultiAssayExperiment_1.39.0 ExperimentHub_3.3.0
#> [11] AnnotationHub_4.3.0 BiocFileCache_3.3.0
#> [13] dbplyr_2.5.2 epiregulon_2.3.2
#> [15] SingleCellExperiment_1.35.1 SummarizedExperiment_1.43.0
#> [17] Biobase_2.73.1 GenomicRanges_1.65.0
#> [19] Seqinfo_1.3.0 IRanges_2.47.2
#> [21] S4Vectors_0.51.3 BiocGenerics_0.59.6
#> [23] generics_0.1.4 MatrixGenerics_1.25.0
#> [25] matrixStats_1.5.0 BiocStyle_2.41.0
#>
#> loaded via a namespace (and not attached):
#> [1] RColorBrewer_1.1-3 jsonlite_2.0.0
#> [3] magrittr_2.0.5 ggbeeswarm_0.7.3
#> [5] magick_2.9.1 farver_2.1.2
#> [7] rmarkdown_2.31 vctrs_0.7.3
#> [9] memoise_2.0.1 Rsamtools_2.29.0
#> [11] RCurl_1.98-1.18 tinytex_0.59
#> [13] htmltools_0.5.9 S4Arrays_1.13.0
#> [15] BiocBaseUtils_1.15.1 curl_7.1.0
#> [17] BiocNeighbors_2.7.2 Rhdf5lib_2.1.0
#> [19] SparseArray_1.13.2 rhdf5_2.57.1
#> [21] sass_0.4.10 bslib_0.11.0
#> [23] httr2_1.2.2 cachem_1.1.0
#> [25] GenomicAlignments_1.49.0 lifecycle_1.0.5
#> [27] pkgconfig_2.0.3 rsvd_1.0.5
#> [29] Matrix_1.7-5 R6_2.6.1
#> [31] fastmap_1.2.0 digest_0.6.39
#> [33] TFMPvalue_1.0.0 AnnotationDbi_1.75.0
#> [35] scater_1.41.1 irlba_2.3.7
#> [37] RSQLite_3.53.1 beachmat_2.29.0
#> [39] seqLogo_1.79.0 filelock_1.0.3
#> [41] labeling_0.4.3 httr_1.4.8
#> [43] abind_1.4-8 compiler_4.6.0
#> [45] bit64_4.8.2 withr_3.0.2
#> [47] S7_0.2.2 backports_1.5.1
#> [49] BiocParallel_1.47.0 viridis_0.6.5
#> [51] DBI_1.3.0 HDF5Array_1.41.0
#> [53] rappdirs_0.3.4 DelayedArray_0.39.3
#> [55] rjson_0.2.23 gtools_3.9.5
#> [57] caTools_1.18.3 tools_4.6.0
#> [59] vipor_0.4.7 otel_0.2.0
#> [61] beeswarm_0.4.0 glue_1.8.1
#> [63] h5mread_1.5.0 restfulr_0.0.16
#> [65] rhdf5filters_1.25.0 grid_4.6.0
#> [67] checkmate_2.3.4 TFBSTools_1.51.0
#> [69] gtable_0.3.6 BiocSingular_1.29.0
#> [71] ScaledMatrix_1.21.0 metapod_1.21.0
#> [73] ggrepel_0.9.8 BiocVersion_3.24.0
#> [75] pillar_1.11.1 motifmatchr_1.35.0
#> [77] dplyr_1.2.1 lattice_0.22-9
#> [79] bit_4.6.0 DirichletMultinomial_1.55.0
#> [81] tidyselect_1.2.1 scuttle_1.23.1
#> [83] knitr_1.51 gridExtra_2.3
#> [85] scrapper_1.7.3 bookdown_0.46
#> [87] xfun_0.58 UCSC.utils_1.9.0
#> [89] yaml_2.3.12 cigarillo_1.3.0
#> [91] evaluate_1.0.5 codetools_0.2-20
#> [93] tibble_3.3.1 BiocManager_1.30.27
#> [95] cli_3.6.6 jquerylib_0.1.4
#> [97] dichromat_2.0-0.1 Rcpp_1.1.1-1.1
#> [99] png_0.1-9 XML_3.99-0.23
#> [101] parallel_4.6.0 ggplot2_4.0.3
#> [103] blob_1.3.0 beachmat.hdf5_1.11.0
#> [105] bitops_1.0-9 pwalign_1.9.1
#> [107] viridisLite_0.4.3 scales_1.4.0
#> [109] purrr_1.2.2 crayon_1.5.3
#> [111] rlang_1.2.0 cowplot_1.2.0
#> [113] KEGGREST_1.53.0