*definice generaci
DATASET ACTIVATE DataSet2.
RECODE c1 (1965 thru 1980=1) (1981 thru 1996=2) (ELSE=SYSMIS) INTO GEN.
VARIABLE LABELS  GEN 'generace'.
EXECUTE.

*vyber pouze generaci x a y
FILTER OFF.
USE ALL.
SELECT IF (GEN = 1  |  GEN = 2).
EXECUTE.


*cluster k-means - 5 shluky

QUICK CLUSTER q2_1 q2_2 q2_3 q2_4 q2_5 q2_6 q2_7 q2_8 q2_9
  /MISSING=LISTWISE
  /CRITERIA=CLUSTER(5) MXITER(10) CONVERGE(0)
  /METHOD=KMEANS(NOUPDATE)
  /SAVE CLUSTER
  /PRINT ID(GEN) INITIAL ANOVA.

*cluster k-means - 4 shluky

QUICK CLUSTER q2_1 q2_2 q2_3 q2_4 q2_5 q2_6 q2_7 q2_8 q2_9
  /MISSING=LISTWISE
  /CRITERIA=CLUSTER(4) MXITER(10) CONVERGE(0)
  /METHOD=KMEANS(NOUPDATE)
  /SAVE CLUSTER
  /PRINT ID(GEN) INITIAL ANOVA.

*cluster k-means - 3 shluky

QUICK CLUSTER q2_1 q2_2 q2_3 q2_4 q2_5 q2_6 q2_7 q2_8 q2_9
  /MISSING=LISTWISE
  /CRITERIA=CLUSTER(3) MXITER(10) CONVERGE(0)
  /METHOD=KMEANS(NOUPDATE)
  /SAVE CLUSTER
  /PRINT ID(GEN) INITIAL ANOVA.


*cluster k-means - 2 shluky

QUICK CLUSTER q2_1 q2_2 q2_3 q2_4 q2_5 q2_6 q2_7 q2_8 q2_9
  /MISSING=LISTWISE
  /CRITERIA=CLUSTER(2) MXITER(10) CONVERGE(0)
  /METHOD=KMEANS(NOUPDATE)
  /SAVE CLUSTER
  /PRINT ID(GEN) INITIAL ANOVA.

*rozdíly mezi generacemi

CROSSTABS
  /TABLES=GEN BY QCL_4 QCL_5 QCL_6 QCL_7
  /FORMAT=AVALUE TABLES
  /STATISTICS=CHISQ 
  /CELLS=COUNT ROW 
  /COUNT ROUND CELL.