map.snps: Search for SNPs
In rauschenberger/spliceQTL: Alternative Splicing

This function attributes SNPs to genes.

1	map.snps(gene.chr, gene.start, gene.end, snp.chr, snp.pos, dist = 10^3)

`gene.chr`	chromosome: numeric vector with one entry per gene
`gene.start`	start position: numeric vector with one entry per gene
`gene.end`	end position: numeric vector with one entry per gene
`snp.chr`	integer 1-22
`snp.pos`	chromosomal position of SNPs: numeric vector with one entry per SNP
`dist`	number of base pairs before start position: integer

gene.chr <- rep(1,times=5)
gene.start <- 1:5
gene.end <- 2:6

snp.chr <- rep(1,times=100)
snp.pos <- seq(from=1,to=4.9,length.out=100)

map.snps(gene.chr,gene.start,gene.end,snp.chr,snp.pos,dist=0)