"## Initial Net Effect Model" "LVNet1 <- 'GrapeQual =~ lambda1*N +lambda2*Sugars +lambda3*Tart +lambda4*MalicManInten  =~ lambda5*MgtGrapeQual ~ gamma1*ManInten'" "LVNet1.fit <- sem(LVNet1, sample.cov=cov.dat, sample.nobs=50" "show(LVNet1.fit); fitMeasures(LVNet1.fit, ""cfi"")subset(modindices(LVNet1.fit), mi>3)" "## Revised Net Effect Model" "LVNet2 <- 'GrapeQual =~ lambda1*N +lambda2*Sugars +lambda3*Tart +lambda4*MalicManInten  =~ lambda5*MgtGrapeQual ~ gamma1*ManIntenTart         ~ gamma3*ManInten'"