library(Rsamtools)
ref_fn <- system.file( "extra/example.fa", package = "seqbias" )
ref_f <- FaFile( ref_fn )
open.FaFile( ref_f )
ref_seqs <- scanFaIndex( ref_f )
I <- random.intervals( ref_seqs, n = 100, ms = 1000 )
Run the code above in your browser using DataLab