myCongenericModel <- mxModel("The AC Model", type = "RAM",
mxData(observed = dataCov, type = "cov", numObs = 106),
manifestVars = c("ac1","ac2","ac3","ac4","ac5","ac6"),
latentVars = "AC",

mxPath(from="AC",
arrows = 2,
free = FALSE,
values = 1.0,
labels <- "AC"),

mxPath(from = "AC",
to = c("ac1","ac2","ac3","ac4","ac5","ac6"),
arrows = 1,
free = c(T,T,T,T,T,T),
values = c(1,1,1,1,1,1),
labels = c("acL1","acL2","acL3","acL4","acL5","acL6")
),

mxPath(from = c("ac1","ac2","ac3","ac4","ac5","ac6"),
arrows = 2,
free = TRUE,
values = c(1,1,1,1,1,1),
labels = c("acE1", "acE2", "acE3", "acE4", "acE5", "acE6")
),

#----------Correlated Errors--------------


mxPath(from = c("ac1"),
to = c("ac5"),
arrows = 2,
free = T,
values = 1,
labels = ("cov15")
)
#-----------------------------------------


)