Two Trait Analysis
 Anim 300 !P 
 Sire 300 !P 
 Dam 300 !P
 Day 
 Generation * !I
 Gender * !A 
 Week  
 Weight  !/10
 day !=V4 !/365
M42.dat !SKIP 1 # Pedigree file
M42_rr.dat !SKIP 1 !MAXIT 100 #Data file
Weight ~ fac(Week).Generation*Gender fac(Week).Generation.day   ,
  !r   leg(Week,3).Anim  ide(Anim).leg(Week,2) !f mv
1 2  2
386 0 I
6 0 DIAG 1 2 3 4 5 6 !S2==1 !GP
leg(Week,3).Anim 2
4 Week US !GP !+10
16 
9 6 
0 0 1
0 0 0 .7
419 0 AINV
ide(Anim).leg(Week,2) 2
419 0 IDEN 
3 0 US !GP !+6
1
0 1
0 0 1
0 0 0 1