## 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"
#
# # a) provide the seed SNPs with the significance info
# ## load ImmunoBase
# ImmunoBase <- xRDataLoader(RData.customised='ImmunoBase',
# RData.location=RData.location)
# ## get lead SNPs reported in AS GWAS and their significance info (p-values)
# gr <- ImmunoBase$AS$variant
# data <- names(gr)
#
# # b) define nearby genes
# snp_gr <- xSNPlocations(data=data, RData.location=RData.location)
# ## End(Not run)
Run the code above in your browser using DataLab