Description Usage Arguments Details Value Author(s) References Examples
This conversion is useful for creating a meta-feature table for classifier training and prediction based on sub-networks that were selected based on their differential correlation between classes.
1 2 3 4 5 6 | ## S4 method for signature 'matrix'
interactorDifferences(measurements, ...)
## S4 method for signature 'DataFrame'
interactorDifferences(measurements, networkSets = NULL, absolute = FALSE, verbose = 3)
## S4 method for signature 'MultiAssayExperiment'
interactorDifferences(measurements, target = NULL, ...)
|
measurements |
Either a |
networkSets |
A object of type |
absolute |
If TRUE, then the absolute values of the differences are returned. |
target |
If |
... |
Variables not used by the |
verbose |
Default: 3. A number between 0 and 3 for the amount of progress messages to give. This function only prints progress messages if the value is 3. |
The pairs of features known to interact with each other are specified by networkSets
.
An object of class DataFrame
with one column for each interactor pair difference and one row
for each sample. Additionally, mcols(resultTable)
prodvides a DataFrame
with a column
named "original" containing the name of the sub-network each meta-feature belongs to.
Dario Strbenac
Dynamic modularity in protein interaction networks predicts breast cancer outcome, Ian W Taylor, Rune Linding, David Warde-Farley, Yongmei Liu, Catia Pesquita, Daniel Faria, Shelley Bull, Tony Pawson, Quaid Morris and Jeffrey L Wrana, 2009, Nature Biotechnology, Volume 27 Issue 2, https://www.nature.com/articles/nbt.1522.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | networksList <- list(`A Hub` = matrix(c('A', 'A', 'A', 'B', 'C', 'D'), ncol = 2),
`G Hub` = matrix(c('G', 'G', 'G', 'H', 'I', 'J'), ncol = 2))
netSets <- FeatureSetCollection(networksList)
# Differential correlation for sub-network with hub A.
measurements <- matrix(c(5.7, 10.1, 6.9, 7.7, 8.8, 9.1, 11.2, 6.4, 7.0, 5.5,
5.6, 9.6, 7.0, 8.4, 10.8, 12.2, 8.1, 5.7, 5.4, 12.1,
4.5, 9.0, 6.9, 7.0, 7.3, 6.9, 7.8, 7.9, 5.7, 8.7,
8.1, 10.6, 7.4, 7.15, 10.4, 6.1, 7.3, 2.7, 11.0, 9.1,
round(rnorm(60, 8, 1), 1)), ncol = 10, byrow = TRUE)
rownames(measurements) <- LETTERS[1:10]
colnames(measurements) <- paste("Patient", 1:10)
interactorDifferences(measurements, netSets)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.