fn = connFasta(system.file("extdata/rs_chLG1.fas", package="ior"))
Rfasta.next(fn)
unix.time(for(i in 1:10000) Rfasta.next(fn))
close(fn)
fn = fasta.open(system.file("extdata/rs_chLG1.fas", package="ior"))
unix.time(for(i in 1:10000) fasta.next(fn))Run the code above in your browser using DataLab