reads_fn <- system.file( "extra/example.bam", package = "seqbias" )
ref_fn <- system.file( "extra/example.fa", package = "seqbias" )
sb <- seqbias.fit( ref_fn, reads_fn )
I <- GRanges( c('seq1'), IRanges( c(1), c(5000) ), strand = c('-') )
bias <- seqbias.predict( sb, I )
Run the code above in your browser using DataLab