modified geno.r