* Encoding: UTF-8.
*General Charisma Inventory.


COMPUTE Influence=MEAN(GCI1,GCI2,GCI3).
COMPUTE Affability=MEAN(GCI4,GCI5,GCI6).
EXECUTE.

RELIABILITY
  /VARIABLES= GCI1 GCI2 GCI3
  /SCALE('Influence') ALL
  /MODEL=ALPHA
  /SUMMARY=TOTAL.

RELIABILITY
  /VARIABLES= GCI4 GCI5 GCI6
  /SCALE('Affability') ALL
  /MODEL=ALPHA
  /SUMMARY=TOTAL.