Create GetSNPdensities.r