Well, suppose 'HS.model' contains the model syntax, and 'HS.missing'
contains missing data, something very rudimentary could be this (using
the 'mice' package):
# generate 5 multiple complete datasets
out <- mice(HS.missing, m=5)
D1 <- complete(out, 1)
D2 <- complete(out, 2)
D3 <- complete(out, 3)
D4 <- complete(out, 4)
D5 <- complete(out, 5)
# fit model for each complete dataset
fit1 <- cfa(HS.model, data=D1)
fit2 <- cfa(HS.model, data=D2)
fit3 <- cfa(HS.model, data=D3)
fit4 <- cfa(HS.model, data=D4)
fit5 <- cfa(HS.model, data=D5)
# predict scores for all models
p1 <- predict(fit1)
p2 <- predict(fit2)
p3 <- predict(fit3)
p4 <- predict(fit4)
p5 <- predict(fit5)
# compute 'average' across 5 sets of scores:
scores <- (p1 + p2 + p3 + p4 + p5)/5
Hope this helps,
Yves.