item <- c("1", "2", "3","5","6","7","8","9","10","11")



model.tau22 = '
                F1 =~ 1 + v1*1 + v1*2 + v1*5 + v2*6 + v1*11 +
                F2 =~ 3 + v2*3 + v2*7 + v2*8 + v2*9 + v2*10
                #variance
                F1 ~~ 1*F1

'

fit.tau22 <- lavaan:::cfa(model.tau22, sample.cov=covmat1, sample.nobs=812, ordered=item, std.lv=TRUE)

fit.tau22
semPaths(fit.tau22, "std")