# 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)
noisyr_transcript(
bams = bams,
genes = genes,
destination.files = paste0(tempdir(), "/", basename(bams), ".noisefiltered.bam")
)
# }
Run the code above in your browser using DataLab