data(geneSetAnalysis)
head(geneSetAnalysis$arrayData)
arrayDataGR <- createArrayData(geneSetAnalysis[["arrayData"]], positionName="Position")
library(TxDb.Hsapiens.UCSC.hg19.knownGene)
genesHg19 <- genes(TxDb.Hsapiens.UCSC.hg19.knownGene)
geneSets <- geneSetAnalysis[["geneSets"]]
snpsGSC <- geneToSNPList(geneSets, arrayDataGR, genesHg19)
Run the code above in your browser using DataLab