library(lavaan) "input.cov <- '" 2.602; ; ; ; ;  -1.187;1.896; ; ; ;  1.038;-0.781;2.536; ; ;  1.270;-0.726;0.559;1.688; ;  -0.592;0.451;0.147;-0.219;1.670;  0.821;-0.364;-0.455;0.578;-0.864;"1.366 '" "cov.dat <- getCov(input.com, names = c(""N"", ""Sugars"", ""Tart"", ""Malic"", ""Nfixers"", ""Mgt""))" "cfa1 <- 'GrapeQual =~ lambda1*N +lambda2*Sugars +lambda3*Tart +lambda4*Malic '" "cfa1.fit <- sem(cfa1, sample.cov = cfa.cov.dat, sample.nobs = 50)"