Added snpscope.r