## Not run:
# require(BSgenome.Hsapiens36bp.UCSC.hg18mappability)
# TSSTable <- data.frame(chr = paste("chr", c(1,2), sep = ""), position = c(100000, 200000))
# mappabilityCalc(TSSTable, Hsapiens36bp, window = 200, type = "TSS")
# ## End(Not run)
Run the code above in your browser using DataLab