* Scale ID: 			UCLA.
* Scale Name: 		UCLA Loneliness Scale.
* TILDA Variables:    MHucla_loneliness.
* Dataset:      		TILDA Wave 1-6.
* Author:.
* Institution:  		The Irish Longitudinal Study on Ageing (TILDA).
* .
* Description:.
* Generates scoring for the UCLA Loneliness Scale.
* .
* Version:      1.0.
* Date:         2026-09-01.
* Language:     SPSS.

RECODE SCQLonelns1 SCQLonelns2 SCQLonelns3 SCQLonelns4 SCQLonelns5
  (-99 = SYSMIS) (-812 = SYSMIS) (-823 = SYSMIS).

COMPUTE ucla_loneliness = $SYSMIS.
IF (in_scq = 1) ucla_loneliness = 0.

COMPUTE ucla_loneliness = ucla_loneliness + 3 - SCQLonelns1.
COMPUTE ucla_loneliness = ucla_loneliness + 3 - SCQLonelns2.
COMPUTE ucla_loneliness = ucla_loneliness + 3 - SCQLonelns3.
COMPUTE ucla_loneliness = ucla_loneliness + 3 - SCQLonelns5.
COMPUTE ucla_loneliness = ucla_loneliness + SCQLonelns4 - 1.

IF (ABS(SCQLonelns1) > 3) ucla_loneliness = $SYSMIS.
IF (ABS(SCQLonelns2) > 3) ucla_loneliness = $SYSMIS.
IF (ABS(SCQLonelns3) > 3) ucla_loneliness = $SYSMIS.
IF (ABS(SCQLonelns4) > 3) ucla_loneliness = $SYSMIS.
IF (ABS(SCQLonelns5) > 3) ucla_loneliness = $SYSMIS.

VARIABLE LABELS ucla_loneliness "UCLA loneliness scale".
* Note: UCLA loneliness scale from Self-completion questionnaire.

RENAME VARIABLES (ucla_loneliness = MHucla_loneliness).

EXECUTE.