# \donttest{
# without a customized egene file,
URL1<-"https://gitee.com/stronghoney/exampleData/raw/master/gwas/GLGC_CG0052/sentinelSnpDF.txt"
sentinelSnpDF <- data.table::fread(URL1)
traitsAll <- xQTLanalyze_getTraits(sentinelSnpDF, detectRange=1e4,"Brain - Cerebellum",
genomeVersion="grch37", grch37To38=TRUE)
# with a egene file:
egeneFile <- "http://bioinfo.szbl.ac.cn/xQTL_biolinks/xqtl_data/egeneDF.txt"
egeneDF <- data.table::fread(egeneFile)
traitsAll <- xQTLanalyze_getTraits(sentinelSnpDF, detectRange=1e4,"Brain - Cerebellum",
genomeVersion="grch37", grch37To38=TRUE, egeneDF=egeneDF)
# }
Run the code above in your browser using DataLab