data("hg19.exon.data",package="metaseqR")
exon.counts <- hg19.exon.counts
gene.data <- get.annotation("hg19","gene")
sample.list <- sample.list.hg19
exon.filters <- get.defaults("exon.filter")
the.counts <- construct.gene.model(exon.counts,sample.list,
gene.data)
filter.results <- filter.exons(the.counts,gene.data,
sample.list,exon.filters)
Run the code above in your browser using DataLab