benchmark_heatmapTable.R

benchmark_heatmapTable.R

req.packages <- c("GenomicSuperSignature", "bcellViper", "microbenchmark", "reprex")
BiocManager::install(req.packages, ask=FALSE, force = FALSE)

reprex::reprex({
  BiocManager::version()
  BiocManager::valid()

  suppressPackageStartupMessages({
    library(GenomicSuperSignature)
    library(bcellViper)
    library(microbenchmark)
  })

  RAVmodel <- getModel("PLIERpriors", load = TRUE)
  data(bcellViper)
  dset
  val_all <- validate(dset, RAVmodel)

  suppressMessages({
    microbenchmark(heatmapTable(
      val_all,
      RAVmodel,
      num.out = 5,
      swCutoff = 0
    ))
  })
sessionInfo()
})