Given the results from `cinaR` it produces dot plots for enrichment analyses.
Examples
# \donttest{
library(cinaR)
data(atac_seq_consensus_bm) # calls 'bed'
# a vector for comparing the examples
contrasts <- sapply(strsplit(colnames(bed), split = "-", fixed = TRUE),
function(x){x[1]})[4:25]
results <- cinaR(bed, contrasts, reference.genome = "mm10")
#> >> Experiment type: ATAC-Seq
#> >> Matrix is filtered!
#> Package "ChIPseeker" needed for this function to work. Please install it.
#> Error in abs(cp.filtered.annotated$distanceToTSS): non-numeric argument to mathematical function
dot_plot(results)
#> Error: object 'results' not found
# }