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 )
seqbias.save( sb, "my_seqbias_model.yml" )
# load sometime later
sb <- seqbias.load( ref_fn, "my_seqbias_model.yml" )
Run the code above in your browser using DataLab