data("annotations")
samples <- c("wt_rep1", "wt_rep2", "mut_rep1", "mut_rep2")
bamfiles <- system.file("extdata", paste0(samples, ".bam"),
package = "yCrypticRNAs")
sf <- c(0.069872847, 0.081113079, 0.088520251, 0.069911116)
data(introns)
types = c("wt", "wt", "mut", "mut")
initiation_sites("YER109C", bamfiles, types, annotations,
introns, sf = sf, replicates = 5)
#initiation_sites("YER109C", bamfiles, types, annotations,
# introns, sf = sf, percentage = 0.2, method = "methodA")
Run the code above in your browser using DataLab