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)