Gs122/criteria

From SNPedia

# gs122 looks for increase risk of baldness based on
# 
# rs6625163(A;A) 1.2 (increased risk of baldness)
# rs1160312(A;A) 2 (increased risk of baldness)
# rs201571(T;T) 2 (more likely to go bald)
# rs6036025(G;G) 1.2 (more likely to go bald)

and(rs6625163(A;A),
   or(rs1160312(A;A),
    and(rs201571(T;T),rs6036025(G;G))))