# Get the description of the bam files
## Not run: bamFileName <- system.file("extdata/align1_rep1.bam", package="metagene")
## Not run: bamFileDescription <- metagene:::prepareBamFiles(bamFileName)
# Get the raw counts
## Not run: bamFileName <- system.file("extdata/align1_rep1.bam", package="metagene")
## Not run: featuresFileName <- system.file("extdata/list1.txt", package="metagene")
## Not run: features <- metagene:::prepareFeatures(featuresFileName, specie="mouse")
## Not run: bamRawCounts <- metagene:::parseBamFiles(bamFileName, features)
# Get the RPM values
## Not run: RPMcounts <- metagene:::rawCountsToRPM(bamRawCounts, bamFileDescription)
Run the code above in your browser using DataLab