**This syntax is designed to create twin data sets from the Minnesota Twins Political Survey. See technical note for detai.s.

SORT CASES BY FAMID(A) ZYG(A).
MATCH FILES
  /FILE=*
  /BY FAMID
  /FIRST=PrimaryFirst
  /LAST=PrimaryLast.
DO IF (PrimaryFirst).
COMPUTE  MatchSequence=1-PrimaryLast.
ELSE.
COMPUTE  MatchSequence=MatchSequence+1.
END IF.
LEAVE  MatchSequence.
FORMAT  MatchSequence (f7).
COMPUTE  InDupGrp=MatchSequence>0.
SORT CASES InDupGrp(D).
MATCH FILES
  /FILE=*
  /DROP=PrimaryFirst InDupGrp.
VARIABLE LABELS  PrimaryLast 'Indicator of each last matching case as Primary' MatchSequence 'Sequential count of matching cases'.
VALUE LABELS  PrimaryLast 0 'Duplicate Case' 1 'Primary Case'.
VARIABLE LEVEL  PrimaryLast (ORDINAL) /MatchSequence (SCALE).
FREQUENCIES VARIABLES=PrimaryLast MatchSequence.
EXECUTE.
SORT CASES  BY MatchSequence.
SPLIT FILE LAYERED BY MatchSequence.

SAVE OUTFILE='C:\MyFiles\papers\EEA of MN twins\fulltwindataforcorrelations.sav' /keep=ALL
time_sub
QLogin_1
Qconsent
QQhidden
Qqhiddendate
Qq1
Qq2
Qq3
Qq5
Qq5a
Qq6
Qq6a
Qq7
Qq7a
Qq8
Qq9
Qq10
Qq11
Qq12
Qq13
Qq14
Qq15
Qq16
Qq17
Qq18
Qq18b
Qq19_A_1
Qq19_A_2
Qq19_A_3
Qq19_A_4
Qq19_A_5
Qq19_A_6
Qq19_A_7
Qq19_A_8
Qq19_A_9
Qq19_A_10
Qq19_A_11
Qq19_A_12
Qq19_A_13
Qq19_A_14
Qq19_A_15
Qq19_A_16
Qq19_A_17
Qq19_A_18
Qq19_A_19
Qq19_A_20
Qq19_A_21
Qq19_A_22
Qq19_A_23
Qq19_A_24
Qq19_A_25
Qq19_A_26
Qq19_A_27
Qq20_A_1
Qq20_A_2
Qq20_A_3
Qq20_A_4
Qq20_A_5
Qq20_A_6
Qq20_A_7
Qq20_A_8
Qq20_A_9
Qq20_A_10
Qq20_A_11
Qq20_A_12
Qq20_A_13
Qq20_A_14
Qq20_A_15
Qq20_A_16
Qq20_A_17
Qq20_A_18
Qq20_A_19
Qq20_A_20
Qq20_A_21
Qq20_A_22
Qq20_A_23
Qq20_A_24
Qq20_A_25
Qq20_A_26
Qq20_A_27
Qq21_A_1
Qq21_A_2
Qq21_A_3
Qq21_A_4
Qq21_A_5
Qq21_A_6
Qq21_A_7
Qq21_A_8
Qq21_A_9
Qq21_A_10
Qq21_A_11
Qq21_A_12
Qq21_A_13
Qq21_A_14
Qq21_A_15
Qq21_A_16
Qq21_A_17
Qq21_A_18
Qq21_A_19
Qq21_A_20
Qq21_A_21
Qq21_A_22
Qq21_A_23
Qq21_A_24
Qq21_A_25
Qq21_A_26
Qq21_A_27
Qq21_A_28
Qq21_A_29
Qq21_A_30
Qq21_A_31
Qq21_A_32
Qq21_A_33
Qq21_A_34
Qq21_A_35
Qq21_A_36
Qq21_A_37
Qq21_A_38
Qq21_A_39
Qq21_A_40
Qq21_A_41
Qq21_A_42
Qq21_A_43
Qq21_A_44
Qq21_A_45
Qq22_A_1
Qq22_A_2
Qq22_A_3
Qq22_A_4
Qq22_A_5
Qq22_A_6
Qq22_A_7
Qq22_A_8
Qq22_A_9
Qq22_A_10
Qq22_A_11
Qq22_A_12
Qq22_A_13
Qq22_A_14
Qq22_A_15
Qq24k_A_1
Qq24l_A_1
Qq24m_A_1
Qq24n_A_1
Qq24o_A_1
Qq25_A_1
Qq25_A_2
Qq25_A_3
Qq25_A_4
Qq25_A_5
Qq25_A_6
Qq25_A_7
Qq25_A_8
Qq25_A_9
Qq25_A_10
Qq25b
Qq26
Qq27
Qq28
Qq29
Qq30
Qq31
Qq32
Qq33
Qq34
Qq35
Qq35b
Qq36
Qq37
Qq38
Qq39
Qq40
Qq41
Qq42
Qq43_A_1
Qq43_A_2
Qq43_A_3
Qq43_A_4
Qq43_A_5
Qq44
Qq45
Qq46
Qq48
Qq49
Qq50
Qq51
Qq52
Qq53
Qq54
Qq55
Qq56
Qq57_A_1
Qq57_A_2
Qq57_A_3
Qq57_A_4
Qq58_A_1
Qq58_A_2
Qq58_A_3
Qq58_A_4
Qq58_A_5
Qq58_A_6
Qq58_A_7
Qq58_A_8
Qq59
Qq60
Qq61
Qq62
Qq63
Qq64
Qq64b
Qq64c
Qq64d
Qq64e
Qq64f
Qq64g
Qq64h
Qq64i
Qq64j
Qq64k
Qq64l
Qq64m
Qq64n
Qq64o
Qq64p
Qq64pSpecified_1
Qq64q
Qq64qSpecified_1
Qq65
Qq66
Qq67
Qq68
Qq69
Qq70
Qq71
Qq72
Qq73_A_1
Qq73_A_2
Qq73_A_3
Qq73_A_4
Qq74
Qq74Specified_1
Qq75
Qq76
Qq77
Qq78
Qq79
Qq80
Qq81
Qq82
Qq82b_1
Qq83
Qq83b
Qq84
Qq87
Qq89
Qq90
Qq90b_1
Qq91
Qq92
Qq93
Qq94
Qq95
ZYG
FAMID
COMPID
BDATE
Qq96
rsex
complete_pair
paperorweb
postelec_date
/COMPRESSED.

**GET
**  FILE='C:\MyFiles\papers\EEA of MN twins\ulltwindataforcorrelations.sav'.
**FILTER OFF.
**USE ALL.

select if matchsequence NE 0

SORT CASES BY FAMID matchsequence.
EXECUTE .
CASESTOVARS
 /ID = FAMID 
 /INDEX = matchsequence
 /GROUPBY = INDEX .
EXECUTE .