* Encoding: UTF-8.
*compute

DATASET ACTIVATE DataSet2.
COMPUTE age_new=2015-BIRTH.
EXECUTE.

COMPUTE altruism_stand=(x1+x2+x3) / 3.
COMPUTE altruism=x1+x2+x3.


*select

DATASET COPY  perspektivni_partneri.
DATASET ACTIVATE  perspektivni_partneri.
FILTER OFF.
USE ALL.
SELECT IF (age_new >= 80).
EXECUTE.
DATASET ACTIVATE  DataSet2.

*recode

COMPUTE V1_reversed=5-V1+1.
EXECUTE.

RECODE v1 (5=1) (4=2) (3=3) (2=4) (1=5) (ELSE=SYSMIS) INTO v1_reversed_2.
EXECUTE.

*kontrola 

CORRELATIONS
  /VARIABLES=v1_reversed_2 V1_reversed
  /PRINT=TWOTAIL NOSIG
  /MISSING=PAIRWISE.

*agregace pro hierarchickou shlukovku

DATASET DECLARE zeme.
AGGREGATE
  /OUTFILE='zeme'
  /BREAK=c_sample
  /v3_mean=MEAN(v3) 
  /v4_mean=MEAN(v4) 
  /v5_mean=MEAN(v5) 
  /v6_mean=MEAN(v6) 
  /v7_mean=MEAN(v7) 
  /v8_mean=MEAN(v8) 
  /v9_mean=MEAN(v9) 
  /v10_mean=MEAN(v10) 
  /v11_mean=MEAN(v11)
  /N_BREAK=N.