## The industrialization and Political Democracy Example
## Bollen (1989), page 332, simplified
model <- '
# latent variable definitions
ind60 =~ x1 + x2 + x3
dem60 =~ y1 + y2 + y3 + y4
# regressions
dem60 ~ ind60
'
fit <- fsr(model, data = PoliticalDemocracy, fsr.method = "Skrondal-Laake")
summary(fit)
Run the code above in your browser using DataLab