filepath <- system.file(package="Rtwobitlib", "extdata", "sacCer2.2bit")
twobit_seqstats(filepath)
twobit_seqlengths(filepath)
## Sanity checks:
sacCer2_seqstats <- twobit_seqstats(filepath)
stopifnot(
identical(sacCer2_seqstats[ , 1], twobit_seqlengths(filepath)),
all.equal(rowSums(sacCer2_seqstats[ , -1]), sacCer2_seqstats[ , 1])
)
Run the code above in your browser using DataLab