This is an EFA-style model, which is not identified.

non-identified EFA.R

library("umx")
con <- url("https://www.dropbox.com/s/r9e3om73viquzfq/disc.rda?raw=1")
print(load(con)); close(con)
manifests = c("q1", "q2", "q3", "q4", "q5", "q6", "q7")
latents <- c("F1", "F2") # 2 factors

m1 <- mxModel("twoFactors", type="RAM", manifestVars = manifests, latentVars = latents,
	mxPath("F1", to = manifests),
 	mxPath("F2", to = manifests),
 	mxPath(latents, arrows = 2, free = FALSE, values = 1),
 	mxPath(manifests, arrows = 2),
 	mxData(disc[, manifests]), type="raw")
)
m1 <- mxRun(m1)

mxCheckIdentification(m1) # Not identified