
Example 3 Data Output
Relevant portion of the driver used to format the output:
C
C WRITE THE SAMPLE INTO A FILE
C
DO 2000, K = 1, P
IF (INCLUD(K)) WRITE (OUTPT2,9010) STDCDE(K),AFNUM(K),
$ AID(K),AFATHR(K),
$ AMOTHR(K),SEX(K),TRAIT(1,K),
$ (GENTYP(I,K),I=1,NUMLOC)
9010 FORMAT (A4,A4,'.',A4,2(1X,A4),1X,A1,2X,F8.4,2(2X,A2))
2000 CONTINUE
C
Simulated data (annotated):
Stdy Fam Ind Fath Moth Sex Trait1 Loc Mrk
ID ID ID ID ID 1 1
HGAR0001.0001 M -1.3131 12 34
HGAR0001.0002 F -1.0166 11 11
HGAR0001.0003 0001 0002 F -0.6166 11 14
HGAR0001.0004 0001 0002 F 0.7023 11 14
HGAR0001.0005 0001 0002 M -0.1132 12 14
HGAR0002.0001 M -0.2859 12 35
HGAR0002.0002 F -0.5964 22 46
HGAR0002.0003 0001 0002 M 0.1079 22 34
HGAR0002.0004 0001 0002 F -0.0209 22 34
HGAR0002.0005 0001 0002 F -0.1779 12 45
HGAR0003.0001 F -1.2613 11 14
HGAR0003.0002 M 0.3870 22 23
HGAR0003.0003 0002 0001 F 0.5464 12 13
HGAR0003.0004 0002 0001 M 0.6852 12 13
HGAR0003.0005 0002 0001 M 0.9881 12 24
.
.
.
HGAR0100.0001 F -2.0164 11 15
HGAR0100.0002 M 0.7886 22 13
HGAR0100.0003 0002 0001 F 0.5026 12 13
HGAR0100.0004 0002 0001 M 0.2145 12 35
HGAR0100.0005 0002 0001 F 1.5944 12 11
|