samples <- c("wt_rep1", "wt_rep2", "mut_rep1", "mut_rep2")
bamfiles <- system.file("extdata", paste0(samples, ".bam"),
package = "yCrypticRNAs")
data(annotations)
types <- c("wt", "wt", "mut", "mut")
scaling_factors <- c(0.069872847, 0.081113079, 0.088520251, 0.069911116)
rna_seq_signals <- coverageDataSet (bamfiles, annotations, types, scaling_factors)
rna_seq_signals
Run the code above in your browser using DataLab