library(lavaan)

active.f <- read.csv("http://commres.net/_media/r/active.full.csv")
active <- read.csv("http://commres.net/_media/r/active.csv")

head(active.f)
str(active.f)

# ACTIVE (Advanced Cognitive Training for Independent and Vital Elderly)
# age
# edu: years of edu
# group: there are four groups - control group and three other training groups (memory, reasoning, and speed)
# booster: whether received booster training
# sex: 1 Male 2 Female
# reason: reasoning ability

# ufov: useful field of view variable
# mmse: Mini-mental state examination total score

# hvlt: Hopkins Verbal Learning Test 
# ws: word series to measure reasoning ability
# ls: letter series to measure reasoning ability
# lt: letter set to measure reasoning ability
# ept: everyday problem solving test