Description Usage Arguments Value Author(s) References See Also Examples
This function takes a TNI object and a list of candidate modulators, and computes the conditional mutual information over the TF-target interactions in a transcriptional network (with multiple hypothesis testing corrections). For each TF, the method measures the change in the mutual information between the TF and its targets conditioned to the gene expression of a modulator.
1 2 3 4 |
object |
a processed object of class 'TNI' |
modulators |
a vector with identifiers for those considered as candidate modulators. |
tfs |
a vector with TF identifiers. If NULL, the function will assess all TFs in the network. |
sampling |
a single integer value specifying the percentage of the available samples that should be included in the analysis. For example, for each TF-target interaction of a given hub, 'sampling = 35' means that the conditional mutual information will be computed from the top and bottom 35% of the samples ranked by the gene expression of a given candidate modulator. |
pValueCutoff |
a single numeric value specifying the cutoff for p-values considered significant. |
pAdjustMethod |
a single character value specifying the p-value adjustment method to be used (see 'p.adjust' for details). |
minRegulonSize |
a single integer or numeric value specifying the minimum number of elements in a regulon. Gene sets with fewer than this number are removed from the analysis. |
minIntersectSize |
a single integer or numeric value specifying the minimum number of observed modulated elements in a regulon (as percentage value). |
miThreshold |
a single character value specifying the underlying distribution used to estimate the mutual information threshold. Options: 'md' and 'md.tf'. In the 1st case, 'miThreshold' is estimated from a pooled null distribution representing random modulators, while in the 2nd case a specific mutual information threshold is estimated for each TF conditioned on the random modulators. In the two options the 'miThreshold' is estimated by permutation analysis (see 'prob'). Alternatively, users can either provide a custom mutual information threshold or a numeric vector with lower (a) and upper (b) bounds for the differential mutual information analysis (e.g. 'c(a,b)'). |
prob |
a probability value in [0,1] used to estimate the 'miThreshold' based on the underlying quantile distribution. |
medianEffect |
a single logical value specifying whether to assess the median effect of each modulator. This global statistics does not affect the inferential process over single TF-target interactions. This method is still experimental, it can be used as a complementary analysis to chek the overall modulation effect onto all targets listed in a given regulon (this step may require substantial computation time). |
iConstraint |
a single logical value specifying whether to apply independence constraint between TFs and modulators (when verbose=TRUE) or not (when verbose=FALSE). |
verbose |
a single logical value specifying to display detailed messages (when verbose=TRUE) or not (when verbose=FALSE). |
... |
additional arguments passed to tna.graph function. |
a data frame in the slot "results", see 'cdt' option in tni.get
.
Mauro Castro
Wang, K. et al. Genome-wide identification of post-translational modulators of transcription factor activity in human B cells. Nat Biotechnol, 27(9):829-39, 2009.
Castro, M.A.A. et al. RTN: Reconstruction and Analysis of Transcriptional Networks. Journal Paper (in preparation), 2012.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | data(tniData)
## Not run:
# preprocessing
rtni <- tni.constructor(expData=tniData$expData,
regulatoryElements=c("PTTG1","E2F2","FOXM1","E2F3","RUNX2"),
rowAnnotation=tniData$rowAnnotation)
# permutation/bootstrap analysis (infers the reference/relevance network)
rtni <- tni.permutation(rtni)
rtni <- tni.bootstrap(rtni)
# dpi filter (infers the transcriptional network)
rtni <- tni.dpi.filter(rtni)
# get some candidate modulators for demonstration!
mod4test <- rownames(rtni@gexp)[sample(1:nrow(rtni@gexp),200)]
# conditional analysis
rtni <- tni.conditional(rtni, modulators=mod4test, pValueCutoff=1e-3)
# get results
cdt <- tni.get(rtni, what="cdt.table")
# get summary on a graph object
g <- tni.graph(rtni, gtype="mmap")
###---------------------------------------------
### optional: plot the igraph object using RedeR
library(RedeR)
#--load reder interface
rdp <- RedPort()
calld(rdp)
#---add graph and legends
addGraph(rdp,g)
addLegend.shape(rdp,g)
addLegend.size(rdp,g)
addLegend.color(rdp,g,type="edge")
relax(rdp,p1=50,p5=20)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.