fix error when dad not present for segregating dominant

closes #181

Author: brentp

js/js-tests.html

@@ -221,6 +221,18 @@
 kid.mom = mom; kid.dad = dad
 assert_not(segregating_denovo, [[kid, dad, mom]], "affected mom is not segregating de novo")
 
+var dom_mom = Sample(HET, {id:"mom_dom", sex:"female", affected: true})
+var dom_dad = Sample(HOM_REF, {id:"dad_dom", sex:"male", affected: false})
+var dom_kid = Sample(HET, {id:"kid_dom", sex:"male", affected: true})
+as_trio(dom_kid, dom_dad, dom_mom)
+assert(segregating_dominant, [[dom_kid, dom_dad, dom_mom]], "autosomal dominant trio with affected het mom")
+
+var dom_pair_mom = Sample(HET, {id:"mom_dom_pair", sex:"female", affected: true})
+var dom_pair_kid = Sample(HET, {id:"kid_dom_pair", sex:"female", affected: true})
+dom_pair_mom.kids = [dom_pair_kid]
+dom_pair_kid.mom = dom_pair_mom
+assert(segregating_dominant, [[dom_pair_kid, dom_pair_mom]], "autosomal dominant mom+kid affected pair")
+
 
 var k1 = Sample(HET, {id:"kid", sex:"female", affected: true})
 var m1 = Sample(HOM_REF, {id:"mom", sex:"female", affected: false})

js/slivar-functions.js

@@ -86,7 +86,8 @@ function segregating_dominant_x(s) {
   if(s.sex != "female"){return false; }
   // this block enforces inherited dominant, but not find de novos
   if(("mom" in s) || ("dad" in s)) {
-    if(!((("mom" in s) && s.mom.affected && s.mom.het) || (s.dad && s.dad.affected))) { return false;}
+    if(!((("mom" in s) && s.mom.affected && s.mom.het) || 
+        (("dad" in s) && s.dad.affected && s.dad.het))) { return false;}
     if(("dad" in s) && !hq1(s.dad, true)){ return false; }
     if(("mom" in s) && !hq1(s.mom, true)){ return false; }
   }