Description Usage Arguments Value Examples
This function lists the inferred 'dual regulons' and, if available, adds external evidences.
1 2 3 |
object |
A processed object of class MBR evaluated by the
method |
supplementary.table |
An optional 'data.frame' with three columns representing (1) regulatory elements of 'TNI1', (2) regulatory elements of 'TNI2', and (3) external evidences between the regulatory elements. |
evidenceColname |
A single character value specifying a column in the 'supplementary.table'. |
verbose |
A single logical value specifying to display detailed messages (when verbose=TRUE) or not (when verbose=FALSE). |
An MBR object with a data.frame in the slot 'results' listing the input additional evidences.
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 | data("dt4rtn", package = "RTN")
gexp <- dt4rtn$gexp
annot <- dt4rtn$gexpIDs
tfs1 <- dt4rtn$tfs[c("IRF8","IRF1","PRDM1","AFF3","E2F3")]
tfs2 <- dt4rtn$tfs[c("HCLS1","STAT4","STAT1","LMO4","ZNF552")]
##---mbrPreprocess
rmbr <- mbrPreprocess(gexp=gexp, regulatoryElements1 = tfs1,
regulatoryElements2=tfs2, gexpIDs=annot)
##---mbrPermutation
rmbr <- mbrPermutation(rmbr, nPermutations=10)
##---mbrBootstrap
rmbr <- mbrBootstrap(rmbr, nBootstrap=10)
##---mbrDpiFilter
rmbr <- mbrDpiFilter(rmbr)
##---mbrAssociation
rmbr <- mbrAssociation(rmbr, prob=0.75)
##---a 'toy' table with supplementary evidences
motifsInformation <- mbrGet(rmbr, what="motifsInformation")
n <- nrow(motifsInformation)
supplementaryTable <- motifsInformation[1:n,c("Regulon1","Regulon2")]
supplementaryTable$ToyEvidence <- rnorm(n)
##---mbrDuals
rmbr <- mbrDuals(rmbr, supplementary.table = supplementaryTable,
evidenceColname = "ToyEvidence")
##---motifsInformation with 'Evidence'
motifsInformation <- mbrGet(rmbr, what="motifsInformation")
head(motifsInformation)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.