Implementing unequal sample size in snp function