## 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