Description Usage Arguments Details Value Examples
View source: R/find_cna_driven_gene.R
The function finds CNA-driven differentially expressed gene and returns the corresponding p-value, false discovery rate, and associated statistics. The result includes three tables which collects information for gain-, loss-, and both-driven genes.
1 2  | find_cna_driven_gene(gene_cna, gene_exp, gain_prop = 0.2, loss_prop = 0.2,
  progress = TRUE, progress_width = 32, parallel = FALSE)
 | 
gene_cna | 
 Joint CNA table from create_gene_cna.  | 
gene_exp | 
 Joint gene expression table from create_gene_exp.  | 
gain_prop | 
 Minimum proportion of the gain samples to be consider CNA-gain. Default is 0.2.  | 
loss_prop | 
 Minimum proportion of the loss samples to be consider CNA-loss. Default is 0.2.  | 
progress | 
 Whether to display a progress bar. By default   | 
progress_width | 
 The text width of the shown progress bar. By default is 48 chars wide.  | 
parallel | 
 Enable parallelism by plyr. One has to specify a parallel engine beforehand. See example for more information.  | 
The gene is considered CNA-gain if the proportion of the sample exhibiting
gain exceeds the threshold gain_prop, that is, number of samples
having gain_loss = 1. Reversely, the gene is considered CNA-loss if
%samples that gain_loss = -1 is below a given threshold
loss_prop.
When performing the t-test, sample grouping depends on the analysis scenario being either CNA-gain or CNA-loss driven. In CNA-gain driven scenario, two groups, CNA-gain and the other samples, are made. In CNA-loss driven scenario, group CNA-loss and the others are made. Genes that appear in both scenarios will be collected into a third table and excluded from their original tables.
See the vignette for usage of this function by a thorough example.
List of three data.table objects for CNA-driven scenarios: gain, loss, and both, which can be accessed by names: 'gain_driven', 'loss_driven' and 'both'.
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  | require(data.table)
## Create gene_exp and gene_cna manually. The following shows an example
## consisting of 3 genes (BRCA2, TP53, and GNPAT) and 5 samples (A to E).
gene_exp <- data.table(
    GENE = c("BRCA2", "TP53", "GNPAT"),
    A = c(-0.95, 0.89, 0.21), B = c(1.72, -0.05, NA),
    C = c(-1.18, 1.15, 2.47), D = c(-1.24, -0.07, 1.2),
    E = c(1.01, 0.93, 1.54)
)
gene_cna <- data.table(
    GENE = c("BRCA2", "TP53", "GNPAT"),
    A = c(1, 1, NA), B = c(-1, -1, 1),
    C = c(1, -1, 1), D = c(1, -1, -1),
    E = c(0, 0, -1)
)
## Find CNA-driven genes
cna_driven_genes <- find_cna_driven_gene(
    gene_cna, gene_exp, progress=FALSE
)
# Gain driven genes
cna_driven_genes$gain_driven
# Loss driven genes
cna_driven_genes$loss_driven
# Gene shown in both gain and loss records
cna_driven_genes$both
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.