##Obtain the pileup matrix for the first amplicon
data(ampliPanel, package="TarSeqQC")
bed<-getBedFile(ampliPanel)[1]
## Defining bam file and fasta file names and paths
bamFile<-system.file("extdata", "mybam.bam",
package="TarSeqQC", mustWork=TRUE)
fastaFile<-system.file("extdata", "myfasta.fa",
package="TarSeqQC", mustWork=TRUE)
## extracting the pileup matrix
myCounts<-pileupCounts(bed, bamFile, fastaFile)
head(myCounts)
Run the code above in your browser using DataLab