# NOT RUN {
# Simulate dataset:
set.seed(2)
eta<-matrix(rnorm(200*5),ncol=5)
lam<-matrix(rnorm(50*5,0,0.15),50,5)
lam[apply(diag(5)==1,1,rep,each=10)]<-rnorm(50,0.7,0.3)
th<-matrix(rnorm(200*50),ncol=50)
Y<-eta%*%t(lam)+th
# Create groupslist
gr<-list(1:10,11:20,21:30,31:40,41:50)
# Using "lavaan" package:
res <- qgraph.cfa(cov(Y),N=200,groups=gr,pkg="lavaan",vsize.man=2,vsize.lat=10)
qgraph.lavaan(res,filename="lavaan",legend=FALSE,groups=gr,edge.label.cex=0.6)
# Using "sem" package:
res <- qgraph.cfa(cov(Y),N=200,groups=gr,pkg="sem",vsize.man=2,vsize.lat=10,fun=qgraph.loadings)
qgraph.semModel(res,edge.label.cex=0.6)
qgraph(res,edge.label.cex=0.6)
qgraph.sem(res,filename="sem",legend=FALSE,groups=gr,edge.label.cex=0.6)
### Big 5 dataset ###
data(big5)
data(big5groups)
fit <- qgraph.cfa(cov(big5),nrow(big5),big5groups,pkg="lavaan",opts=list(se="none"),
vsize.man=1,vsize.lat=6,edge.label.cex=0.5)
print(fit)
# }
Run the code above in your browser using DataLab