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