search for: x3p

...library("sem") #put in "mydata", the value of the questions mydata <- data.frame(X$X12a,X$X12b,X$X12c,X$X12d,X$X12e,X$X12f,X$X12g,X$X12h,X$X12i,X$X12l,X$X12m,X$X12n,X$X12o,X$X12p,X$X12q,X$X12r,X$X12s,X$X1a,X$X1b,X$X1c,X$X1d,X$X1e,X$X1f,X$X3h,X$X3i,X$X3l,X$X3m,X$X3n,X$X3o,X$X3p,X$X3q,X$X3r,X$X3s,X$X3t,X$X3u,X$X3v,X$X4a,X$X5q,X$X5r,X$X5s,X$X8a,X$X8b,X$X8c,X$X8d) #i calculate the covariance of the data mydata.cov <- cov(mydata,use="complete.obs") #I specify my model model.mydata <- specify.model() F1 -> X.X12a, lam1, NA F1 -> X.X12b, lam2, NA F1 -&...

...) library("sem") #put in "mydata", the value of the questions mydata <- data.frame(X$X12a,X$X12b,X$X12c,X$X12d,X$X12e,X$X12f,X$X12g,X$X12h,X$X12i,X$X12l,X$X12m,X$X12n,X$X12o,X$X12p,X$X12q,X$X12r,X$X12s,X$X1a,X$X1b,X$X1c,X$X1d,X$X1e,X$X1f,X$X3h,X$X3i,X$X3l,X$X3m,X$X3n,X$X3o,X$X3p,X$X3q,X$X3r,X$X3s,X$X3t,X$X3u,X$X3v,X$X4a,X$X5q,X$X5r,X$X5s,X$X8a,X$X8b,X$X8c,X$X8d) #i calculate the covariance of the data mydata.cov <- cov(mydata,use="complete.obs") #I specify my model model.mydata <- specify.model() F1 ->  X.X12a, lam1, NA F1 ->  X.X12b, lam2, NA F1 -&...