## Not run:
# # Load the XGR package and specify the location of built-in data
# library(XGR)
# RData.location <- "http://galahad.well.ox.ac.uk/bigdata_dev"
#
# # Enrichment analysis for GWAS SNPs from ImmunoBase
# # a) provide input data GR object storing GWAS SNPs
# dbSNP_GWAS <- xRDataLoader(RData.customised='dbSNP_GWAS',
# RData.location=RData.location)
#
# # b) provide backgorund data GR object storing FANTOM5 cell-specific enhancers
# FANTOM5_Enhancer_Cell <-
# xRDataLoader(RData.customised='FANTOM5_Enhancer_Cell',
# RData.location=RData.location)
#
# # c) generate random samples as a list of GR objects
# sGR_List <- xGRsampling(GR.data=dbSNP_GWAS,
# GR.background=FANTOM5_Enhancer_Cell, num.samples=1000,
# RData.location=RData.location)
# ## End(Not run)
Run the code above in your browser using DataLab