* Encoding: UTF-8.
*NPI-13
*Code A as 1 and B as 0

RECODE NPI2 NPI5 NPI8 NPI9 NPI11
(1=0) (0=1) INTO rNPI2 rNPI5 rNPI8 rNPI9 rNPI11.
EXECUTE .

COMPUTE Leadership_Authority=MEAN(NPI1, NPI4, NPI7, NPI10).
COMPUTE Grandiose_Exhibitionism=MEAN(rNPI2, rNPI5, rNPI8, rNPI11, NPI13).
COMPUTE Entitlement_Exploitativeness=MEAN(NPI3, NPI6, rNPI9, NPI12).
EXECUTE.

RELIABILITY
  /VARIABLES=NPI1 NPI4 NPI7 NPI10
  /SCALE('Leadership_Authority') ALL
  /MODEL=ALPHA
  /SUMMARY=TOTAL.

RELIABILITY
  /VARIABLES= rNPI2 rNPI5 rNPI8 rNPI11 NPI13
  /SCALE('Grandiose_Exhibitionism') ALL
  /MODEL=ALPHA
  /SUMMARY=TOTAL.

RELIABILITY
  /VARIABLES=NPI3 NPI6 rNPI9 NPI12
  /SCALE('Entitlement_Exploitativeness') ALL
  /MODEL=ALPHA
  /SUMMARY=TOTAL.