#' A list of the SBS96 mutational contexts
#'
sbs_96_contexts <- c("ACA","ACC","ACG","ACT","ACA","ACC",
"ACG","ACT", "ACA","ACC","ACG","ACT",
"ATA","ATC","ATG","ATT","ATA","ATC",
"ATG","ATT","ATA","ATC","ATG","ATT",
"CCA","CCC","CCG","CCT","CCA","CCC",
"CCG","CCT","CCA","CCC","CCG","CCT",
"CTA","CTC","CTG","CTT","CTA","CTC",
"CTG","CTT","CTA","CTC","CTG","CTT",
"GCA","GCC","GCG","GCT","GCA","GCC",
"GCG","GCT","GCA","GCC","GCG","GCT",
"GTA","GTC","GTG","GTT","GTA","GTC",
"GTG","GTT","GTA","GTC","GTG","GTT",
"TCA","TCC","TCG","TCT","TCA","TCC",
"TCG","TCT","TCA","TCC","TCG","TCT",
"TTA","TTC","TTG","TTT","TTA","TTC",
"TTG","TTT","TTA","TTC","TTG","TTT")
#' A list of the six possible (normalized) SBS96 mutational changes
sbs_96_changes <- c("C>A","C>G","C>T",
"T>A","T>C","T>G")
#' A color palette for SBS96 changes. Matches that of SigProfilerPlotting
sbs_96_changes_colors <- c(rgb(3/256,189/256,239/256),
rgb(1/256,1/256,1/256),
rgb(228/256,41/256,38/256),
rgb(203/256,202/256,202/256),
rgb(162/256,207/256,99/256),
rgb(236/256,199/256,197/256))
#' A color palette for ID83 changes. Matches that of SigProfilerPlotting
id_83_colors <- c(rgb(253/256,190/256,111/256), rgb(255/256,128/256,2/256), rgb(176/256,221/256,139/256), rgb(54/256,161/256,46/256),
rgb(253/256,202/256,181/256), rgb(252/256,138/256,106/256), rgb(241/256,68/256,50/256), rgb(188/256,25/256,26/256),
rgb(208/256,225/256,242/256), rgb(148/256,196/256,223/256), rgb(74/256,152/256,201/256), rgb(23/256,100/256,171/256),
rgb(226/256,226/256,239/256), rgb(182/256,182/256,216/256), rgb(134/256,131/256,189/256), rgb(98/256,64/256,155/256))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.