Updated snpscope.r