# NOT RUN {
bams <- rep(system.file("extdata", "ex1.bam", package="Rsamtools", mustWork=TRUE), 2)
genes <- data.frame("id" = 1:2,
"gene_id" = c("gene1", "gene2"),
"seqid" = c("seq1", "seq2"),
"start" = 1,
"end" = 1600)
noise.thresholds <- c(0, 1)
expression.summary = calculate_expression_similarity_transcript(
bams = bams,
genes = genes,
mapq.unique = 99
)
remove_noise_from_bams(
bams = bams,
genes = genes,
expression = expression.summary,
noise.thresholds = noise.thresholds,
destination.files = paste0(tempdir(), "/", basename(bams), ".noisefiltered.bam"),
mapq.unique = 99
)
# }
Run the code above in your browser using DataLab