View source: R/gv_extr_mut_sig.R
gv_extr_mut_sig | R Documentation |
Extracts mutational signatures contribution prediction from the deconstrucSigs package in a legible format.
gv_extr_mut_sig(results, ids_samples)
results |
Data frame containing the results of whichSignatures function from the deconstructSigs package. |
ids_samples |
Name of the samples of interest. |
Returns a data frame with the contribution of each mutational signature studied in each sample in a long format.
mut.sbs <- sample_mutations %>% dplyr::filter(Variant_Type == 'SNP')
sigs.sbs.input <- deconstructSigs::mut.to.sigs.input(
mut.ref = mut.sbs,
sample.id = 'Tumor_Sample_Barcode',
chr = 'Chromosome',
pos = 'Start_Position',
ref = 'Reference_Allele',
alt = 'Tumor_Seq_Allele2',
bsg = BSgenome.Hsapiens.UCSC.hg38,
sig.type = 'SBS')
ids_samples <- unique(sample_mutations$Tumor_Sample_Barcode)
results_sbs <- sapply(ids_samples,
function(x) {
deconstructSigs::whichSignatures(
tumor.ref = sigs.sbs.input,
signatures.ref = signatures.cosmic,
sample.id = x,
contexts.needed = TRUE,
tri.counts.method = 'default')
})
results_sbs.extr <- gv_extr_mut_sig(results_sbs)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.