coords<-getRefCoords(reader,"chr1")
rg<-bamRange(reader,coords)
if(size(rg)!=2216)
stop("[test_bam_range.r] size of range must be 2216!")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.