1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
* После проведения иерархического кластерного анализа мне надо сгенерировать
* файл с кластерными центрами для 3-х кластеров по 50 переменным.

* Далее этот файл будет использоваться в качестве файла начальных центров
* кластеров для кластеризации алгоритмом K-средних.

* Размещено в SPSSX-L. Автор: Raynald Levesque, 10.02.2004.

GET FILE='c:\\program files\\spss\\employee data.sav'.
CLUSTER  jobcat jobtime minority educ
  /METHOD BAVERAGE(clid)
  /MEASURE= SEUCLID
  /PRINT NONE
  /PLOT NONE
  /SAVE CLUSTER(4).
SORT CASES BY clid4.
AGGREGATE OUTFILE=*
	/PRESORTED
	/BREAK=clid4
	/jobcat jobtime minority educ=MEAN(jobcat jobtime minority educ).
LIST.

* В данном случае сохраняются центры в исходном масштабе переменных. Если при кластеризации была запрошена стандартизация, следует предварительно стандартизировать переменные и сохранять стандартизированные значения. Примеч. А.Б.

* Переменную clid4 в файле с кластерными центрами надо переименовать в соответствии с правилами оформления файла с кластерными центрами для процедуры K-средних. Примеч. А.Б.

SAVE OUTFILE='c:\\temp\\cluster centers.sav' /RENAME(clid4=cluster_).

GET FILE='c:\\program files\\spss\\employee data.sav'.
QUICK CLUSTER jobcat jobtime minority educ
  /CRITERIA= CLUSTER(4)
  /FILE='c:\\temp\\cluster centers.sav'
  /METHOD=KMEANS(NOUPDATE)
  /PRINT INITIAL .