data-raw/Alexandrov_2020/Run.PRIMARY.SA.COMPOSITE.exome.subset.R

In WuyangFF95/SynSigRun: Run Mutational Signature Analysis Software Packages Using Mutational Spectra generated by SynSigGen

# Script to run SignatureAnalyzer on the exome-subset of PCAWG
# COMPOSITE mutational spectra, *non-hyper-mutated specta only*.
# Jaegil calls this "PRIMARY". Run this from SynSigEval/data-raw/

library(ICAMS)
library(SynSigEval)

laptop.test <- FALSE

if (laptop.test) {
  input.catalog              <- "Laptop.sa.COMPOSITE.exome.subset/non-hyper-pcawg-as-exome-COMPOSITE.csv"
  out.dir                    <- "Laptop.sa.COMPOSITE.exome.subset/PRIMARY/"
  test.only                  <- TRUE
  num.runs                   <- 2
  maxK                       <- 10
  signatureanalyzer.code.dir <- "C:/Users/steve/Documents/SynSigEval/data-raw/SignatureAnalyzer.052418/"
  stopifnot(getwd() == "C:/Users/steve/Documents/SynSigEval/data-raw")
} else {
  input.catalog              <- "sa.COMPOSITE.exome.subset/non-hyper-pcawg-as-exome-COMPOSITE.csv"
  out.dir                    <- "sa.COMPOSITE.exome.subset/PRIMARY/"
  test.only                  <- FALSE
  num.runs                   <- 20
  maxK                       <- 80
  signatureanalyzer.code.dir <- "/home/gmssgr/bin/SignatureAnalyzer.052418/"
}

delete.tmp.files           <- TRUE
overwrite                  <- TRUE
mc.cores                   <- 20 # Will be overidden and set to 1 on Windows
verbose                    <- FALSE

# TODO(Steve): move RNGking and set.seed into SAMultiRunOneCatalog
cat("\nRunning, maxK is ", maxK, "\n\n", sep = "")
RNGkind(kind = "L'Ecuyer-CMRG")
set.seed(892)

sa.COMPOSITE.exome.subset.res <-
  SAMultiRunOneCatalog(
    num.runs                   = num.runs,
    signatureanalyzer.code.dir = signatureanalyzer.code.dir,
    input.catalog              = input.catalog,
    out.dir                    = out.dir,
    maxK                       = maxK,
    tol                        = 1e-7,
    test.only                  = test.only,
    delete.tmp.files           = delete.tmp.files,
    overwrite                  = overwrite,
    mc.cores                   = mc.cores,
    verbose                    = verbose)