# NOT RUN {
data(test_rna_meta)
data(test_chip_meta)
# }
# NOT RUN {
for(i in test_rna_meta$SRR){
test_rna_meta$files <- system.file("extdata",paste0(i,".tsv"),
package = "intePareto")
}
for(i in test_chip_meta$SRR){
test_chip_meta$files <- system.file("extdata", paste0(i,".bam"),
package = "intePareto")
}
doMatch(rnaMeta = test_rna_meta,
chipMeta = test_chip_meta,
region = "promoter",
method = "weighted.mean",
ensemblDataset = "mmusculus_gene_ensembl")
# }
Run the code above in your browser using DataCamp Workspace