##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (ntile)
{
require(Homo.sapiens)
hsi = seqinfo(Homo.sapiens)[paste0("chr", 1:22), ]
GenomicRanges::unlist(tileGenome(hsi, ntile = 100))
}
Run the code above in your browser using DataLab