if(require(ShortRead)) {
bwt.file <- system.file("extdata", "bowtie", "s_1_aligned_bowtie.txt",
package="ShortRead")
aln <- readAligned(bwt.file, type = "Bowtie")
weights <- computePrimingWeights(aln, weightsLength = 2L)
aln <- addPrimingWeights(aln, weights = weights)
head(alignData(aln)$weights)
}
Run the code above in your browser using DataLab