data('CardioData')
data('coords')
######################
#Mapping SNPs to genes
######################
print(head(coords))
#Subset CardioData to decrease CPU time
CardioDataSub<-CardioData[CardioData$chr < 15,]
set.seed(1)
CardioDataSub<-CardioDataSub[sample(1:nrow(CardioDataSub), 100),]
print(head(CardioDataSub))
CardioMapped<-map2class(coords, CardioDataSub, extend.boundary = 5000)
Run the code above in your browser using DataLab