## ----installation, eval=FALSE-------------------------------------------------
# BiocManager::install("PscanR")

## ----quick-scan---------------------------------------------------------------
library(PscanR)
motifs <- readRDS(system.file("extdata", "J2020.rds", package = "PscanR"))
background <- ps_retrieve_bg_from_file(system.file(
    "extdata", "J2020_hg38_200u_50d_UCSC.psbg.txt", package = "PscanR"
), motifs)
background <- background[c("MA0506.1", "MA0139.1")] # NRF1 and CTCF
sequences <- readRDS(system.file("extdata", "prom_seq.rds", package = "PscanR"))
ps_results_table(pscan(sequences, background))

## ----session-info-------------------------------------------------------------
sessionInfo()