* Encoding: UTF-8.


WEIGHT BY w.GendEthnicRegion.T08.

RECODE SexualOrientationL2.T08 (10=1) (20=2) (30=3) (35=3) (40=3) INTO SexOri.Lucy.
VALUE LABELS SexOri.Lucy 
1 'Heterosexual'
2 'Homosexual'
3 'Bisexual'.
EXECUTE.

CROSSTABS
  /TABLES=Gender.T08 BY SexOri.Lucy
  /FORMAT=AVALUE TABLES
  /CELLS=COUNT
  /COUNT ROUND CELL.

/* latest /*.
SORT CASES  BY Gender.T08.
SPLIT FILE SEPARATE BY Gender.T08.

GLM T8.BS T8.HS BY SexOri.Lucy WITH Age.T08 Partner.T08
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /EMMEANS=TABLES(OVERALL) WITH(Age.T08=MEAN Partner.T08=MEAN)     
  /EMMEANS=TABLES(SexOri.Lucy) WITH(Age.T08=MEAN Partner.T08=MEAN) 
    COMPARE ADJ(BONFERRONI)
  /PRINT=DESCRIPTIVE ETASQ
  /CRITERIA=ALPHA(.05)
  /DESIGN=Age.T08 Partner.T08 SexOri.Lucy.

GLM T8.HS T8.BS BY SexOri.Lucy Gender.T08 WITH Age.T08 Partner.T08
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /PLOT=PROFILE(SexOri.Lucy*Gender.T08)
  /EMMEANS=TABLES(SexOri.Lucy) WITH(Age.T08=MEAN Partner.T08=MEAN) COMPARE ADJ(BONFERRONI)
  /EMMEANS=TABLES(Gender.T08) WITH(Age.T08=MEAN Partner.T08=MEAN) COMPARE ADJ(BONFERRONI)
  /EMMEANS=TABLES(SexOri.Lucy*Gender.T08) WITH(Age.T08=MEAN Partner.T08=MEAN) 
  /EMMEANS=TABLES(OVERALL) WITH(Age.T08=MEAN Partner.T08=MEAN) 
  /PRINT=DESCRIPTIVE ETASQ
  /CRITERIA=ALPHA(.05)
  /DESIGN=Age.T08 Partner.T08 SexOri.Lucy Gender.T08 SexOri.Lucy*Gender.T08.



IF  (Gender.T08=1 & SexOri.Lucy=1) SexOri6=1.
IF  (Gender.T08=0 & SexOri.Lucy=1) SexOri6=2.
IF  (Gender.T08=1 & SexOri.Lucy=2) SexOri6=3.
IF  (Gender.T08=0 & SexOri.Lucy=2) SexOri6=4.
IF  (Gender.T08=1 & SexOri.Lucy=3) SexOri6=5.
IF  (Gender.T08=0 & SexOri.Lucy=3) SexOri6=6.

VALUE LABELS SexOri6
1 'Heterosexual men'
2 'Heterosexual women'
3 'Gay men'
4 'Gay women'
5 'Bisexual men'
6 'Bisexual women'.
EXECUTE.



GLM T8.BS T8.HS BY SexOri6 WITH Age.T08 Partner.T08
  /METHOD=SSTYPE(3)
  /INTERCEPT=INCLUDE
  /EMMEANS=TABLES(OVERALL) WITH(Age.T08=MEAN Partner.T08=MEAN)     
  /EMMEANS=TABLES(SexOri6) WITH(Age.T08=MEAN Partner.T08=MEAN) 
    COMPARE ADJ(BONFERRONI)
  /PRINT=DESCRIPTIVE ETASQ
  /CRITERIA=ALPHA(.05)
  /DESIGN=Age.T08 Partner.T08 SexOri6.