list(p.mendelian = structure(.Data=c(1.0, 0.0, 0.0,
                     0.5, 0.5, 0.0,
                     0.0, 1.0, 0.0,
                     0.5, 0.5, 0.0,
                     0.25, 0.5, 0.25,
                     0.0, 0.5, 0.5,
                     0.0, 1.0, 0.0,       
                  0.0, 0.5, 0.5,
                     0.0, 0.0, 1.0), .Dim=c(3,3,3)),
      p.recessive = structure(.Data=c(1.0, 0.0,
                        1.0, 0.0,
                        0.0, 1.0), .Dim=c(3,2)),                              
   A1 = 1, B1 = 1, C1 = 1, D1 = 1, E1 = 1, F1 = 1, G1 = 1, H1 = 1, J1 = 2)