# Scale ID: 			Flourishing Measure
# Scale Name: 		Flourishing Measure
# TILDA Variables: 	FSFlourishingScale
# Dataset:      		TILDA Waves 7
# Author:
# Institution:  		The Irish Longitudinal Study on Ageing (TILDA)
# 
# Description:
# Cleans and codes up summed score measuring Flourishing.
# 
# Version:      1.0
# Date:         2026-09-01
# Language:     R

# Assumption: the working data frame is called `data`.

flourish_items <- paste0("Flourish", 1:8)

for (v in flourish_items) print(table(data[[v]], useNA = "ifany"))

special_missing <- c(-99, -812, -823, -834, -845, -856, -867, -1)
for (v in flourish_items) {
  data[[v]][data[[v]] %in% special_missing] <- NA_real_
}

# Match Stata egen rowtotal(): ignore missing components and return 0 if all missing.
data$FSFlourishingScale <- rowSums(data[flourish_items], na.rm = TRUE)

attr(data$FSFlourishingScale, "label") <-
  "Flourishing Scale: Measure of Eudaimonic Well-Being"

summary(data$FSFlourishingScale)
print(table(data$FSFlourishingScale, useNA = "ifany"))