Creative-Lives-Measure

Creative Lives Measure

Measuring: How often respondents engage with creative arts.

Number of Items: 6

Item	Question Wording	TILDA Variable
1	Engage in an arts or crafts activity on your own.	SCQCreatFreq1
2	Engage in arts or crafts activity as part of a group.	SCQCreatFreq2
3	Visit a cultural venue or heritage site.	SCQCreatFreq3
4	Engage in another creative hobby.	SCQCreatFreq4
5	Read for pleasure.	SCQCreatFreq5
6	Listen to recorded music for pleasure.	SCQCreatFreq6

Scoring Method:

All items are scored on 7-point Likert scale.

0 = Never

1 = Less than once a month

2 = Once or twice a month

3 = Once or twice a week

4 = Several times a week

5 = Every day (less than 1 hour)

6 = Every day (more than 1 hour)

Scores can be summed for total score or taken for individual Items, with higher scores indicating greater engagement with creative arts.

Example TILDA Papers: - Hennelly, N., Ward, M., Scarlett, S., Hever, A., O’Connor, D., McGarrigle, C., & Kenny, R. A. (2023). Creative Activity in the Ageing Population: Findings from Wave 6 of The Irish Longitudinal Study on Ageing. The Irish Longitudinal Study on Ageing (TILDA), Trinity College Dublin. https://doi.org/10.38018/TildaRe.2023-02

Code

mvdecode (CreatFreq1 CreatFreq2 CreatFreq3 CreatFreq4 CreatFreq5 CreatFreq6), mv(-99=. \ -812=. \ -823=. \ -834 = . \ -845=. \ -856=. \ -867=. \ -1=.)

foreach var in CreatFreq1 CreatFreq2 CreatFreq3 CreatFreq4 CreatFreq5 CreatFreq6 {
    gen `var'_recoded = `var' - 1
}

egen CreativeLivesScore = rowtotal (CreatFreq1_recoded CreatFreq2_recoded CreatFreq3_recoded CreatFreq4_recoded CreatFreq5_recoded CreatFreq6_recoded)

lab var CreativeLivesScore "Total Score of Arts Engagement Questionnaire"

*Scores should be between 0 and 36

Download Stata .do file

creative_items <- paste0("CreatFreq", 1:6)

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

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

recoded_items <- paste0(creative_items, "_recoded")

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

attr(data$CreativeLivesScore, "label") <-
  "Total Score of Arts Engagement Questionnaire"

print(table(data$CreativeLivesScore, useNA = "ifany"))

Download R file

FREQUENCIES VARIABLES=
  CreatFreq1 CreatFreq2 CreatFreq3 CreatFreq4 CreatFreq5 CreatFreq6
  /MISSING=INCLUDE.

RECODE CreatFreq1 CreatFreq2 CreatFreq3 CreatFreq4 CreatFreq5 CreatFreq6
  (-99 = SYSMIS) (-812 = SYSMIS) (-823 = SYSMIS) (-834 = SYSMIS)
  (-845 = SYSMIS) (-856 = SYSMIS) (-867 = SYSMIS) (-1 = SYSMIS).

COMPUTE CreatFreq1_recoded = CreatFreq1 - 1.
COMPUTE CreatFreq2_recoded = CreatFreq2 - 1.
COMPUTE CreatFreq3_recoded = CreatFreq3 - 1.
COMPUTE CreatFreq4_recoded = CreatFreq4 - 1.
COMPUTE CreatFreq5_recoded = CreatFreq5 - 1.
COMPUTE CreatFreq6_recoded = CreatFreq6 - 1.

COMPUTE CreativeLivesScore =
  SUM(CreatFreq1_recoded, CreatFreq2_recoded, CreatFreq3_recoded,
      CreatFreq4_recoded, CreatFreq5_recoded, CreatFreq6_recoded).

* Match Stata egen rowtotal() for an all-missing row.
IF (NMISS(CreatFreq1_recoded, CreatFreq2_recoded, CreatFreq3_recoded,
          CreatFreq4_recoded, CreatFreq5_recoded, CreatFreq6_recoded) = 6)
  CreativeLivesScore = 0.

VARIABLE LABELS CreativeLivesScore
  "Total Score of Arts Engagement Questionnaire".

FREQUENCIES VARIABLES=CreativeLivesScore /MISSING=INCLUDE.

EXECUTE.

Download SPSS .sps file