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)