library("BSgenome.Hsapiens.UCSC.hg19")
threshold1 <- 20
threshold2 <- 100
percentage1 <- 0.80
percentage2 <- 0.90
sample_file <- system.file("extdata", "SampleNames.txt",
package = "BadRegionFinder")
samples <- read.table(sample_file)
bam_input <- system.file("extdata", package = "BadRegionFinder")
output <- system.file("extdata", package = "BadRegionFinder")
target_regions <- system.file("extdata", "targetRegions.bed",
package = "BadRegionFinder")
targetRegions <- read.table(target_regions, header = FALSE,
stringsAsFactors = FALSE)
coverage_summary <- determineCoverage(samples, bam_input, targetRegions, output,
TRonly = TRUE)
coverage_indicators <- determineCoverageQuality(threshold1, threshold2,
percentage1, percentage2,
coverage_summary)
badCoverageSummary <- reportBadRegionsSummary(threshold1, threshold2,
percentage1, percentage2,
coverage_indicators, "", output)
plotSummary(threshold1, threshold2, percentage1, percentage2,
badCoverageSummary, output)
Run the code above in your browser using DataLab