## get reads
exptPath <- system.file("extdata", package="TEQC")
readsfile <- file.path(exptPath, "ExampleSet_Reads.bed")
reads <- get.reads(readsfile, idcol=4, skip=0)
## merge to read pairs
readpairs <- reads2pairs(reads)
## insert size histogram
insert.size.hist(readpairs, breaks=10)
Run the code above in your browser using DataLab