# \donttest{
url1 <- "http://bioinfo.szbl.ac.cn/xQTL_biolinks/xqtl_data/gwas/gwasSub.txt.gz"
url2 <- "http://bioinfo.szbl.ac.cn/xQTL_biolinks/xqtl_data/enhancer.txt"
snpInfo <- data.table::fread(url1, sep="\t")
enhancerDT <- data.table::fread(url2, sep="\t")
variants_hit_enhancer <- xQTLanno_chippeak(snpInfo, enrichElement=enhancerDT)
# }
Run the code above in your browser using DataLab