# 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"
# a) provide the genomic regions
## load ImmunoBase
ImmunoBase <- xRDataLoader(RData.customised='ImmunoBase',
RData.location=RData.location)
## get lead SNPs reported in AS GWAS
data <- ImmunoBase$AS$variant
# b) extract recombination rate
gr <- xGRoverlap(data=data, format="GRanges",
GR.score="RecombinationRate", RData.location=RData.location)
############################################
# gene-centric genomic score (per base)
gr_Gene <- xRDataLoader('UCSC_knownGene',
RData.location=RData.location)
## recombination rate
gr_rr <- xGRoverlap(data=gr_Gene, format="GRanges",
GR.score="RecombinationRate", RData.location=RData.location)
## phastCons100way
gr_phast <- xGRoverlap(data=gr_Gene, format="GRanges",
GR.score="phastCons100way", RData.location=RData.location)
## phyloP100way
gr_phylo <- xGRoverlap(data=gr_Gene, format="GRanges",
GR.score="phyloP100way", RData.location=RData.location)
# }
Run the code above in your browser using DataLab