##
## Example :
##
faifile <- system.file("extdata", "ex.fasta", package = "WhopGenome")
faifh <- fai_open( faifile )
stopifnot( faifh != NULL )
result = fai_query4( faifh , "1", 9 , 20 )
if( result != FALSE )
{
print( result )
}
fai_close( faifh )
Run the code above in your browser using DataLab