fit <- sem(m, data=tw2, ordered=names(tw2), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru+ctrl+und+sf*full+sn*name+sp*profile+sfn*fname+sfp*fprofile
tru ~ ctrl+und+tf*full+tn*name+tp*profile+tfn*fname+tfp*fprofile
ctrl ~ und+cf*full+cn*name+cp*profile+cfn*fname+cfp*fprofile
und ~ uf*full+un*name+up*profile+ufn*fname+ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2), std.lv=T)
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "sfn == 0; sfp == 0")
lavTestWald(fit, "sf == 0; sn ==0; sp == 0")
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru+ctrl+und+sf*full+sn*name+sp*profile
tru ~ ctrl+und+tf*full+tn*name+tp*profile+tfn*fname+tfp*fprofile
ctrl ~ und+cf*full+cn*name+cp*profile+cfn*fname+cfp*fprofile
und ~ uf*full+un*name+up*profile+ufn*fname+ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "sf == 0; sn ==0; sp == 0")
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
lavTestWald(fit, "tfn == 0; tfp == 0")
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
lavTestWald(fit, "tf == 0; tn ==0; tp == 0")
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "tf == 0; tn ==0; tp == 0")
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full + sn*name + sp*profile + sfn*fname + sfp*fprofile
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full + sn*name + sp*profile
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
lavTestWald(fit, "sn ==0; sp == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "sf == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
lavTestWald(fit, "tfn == 0; tfp == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
lavTestWald(fit, "tf == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
lavTestWald(fit, "tn ==0; tp == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "cf == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "cn ==0; cp == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
lavTestWald(fit, "ufn == 0; ufp == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~  un*name + up*profile'
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "uf == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
mods <- modindices(fit)
mods <- mods[grep("\\*", mods$decision),]
mods
mods <- modindices(fit)
mods
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full + sn*name + sp*profile + sfn*fname + sfp*fprofile
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
lavTestWald(fit, "un == 0; up == 0")
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tf*full + tn*name + tp*profile + tfn*fname + tfp*fprofile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tf*full + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl + und + tn*name + tp*profile
ctrl ~ und + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl
ctrl ~ und  + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
lavTestWald(fit, "cn ==0; cp == 0")
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und + sf*full
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~  un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und + tf*full + tn*name + tp*profile
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl + und
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cf*full + cn*name + cp*profile + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile + ufn*fname + ufp*fprofile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ uf*full + un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
#SEM saturated model
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
summary(fit, rsquare=T, fit.measures=T)
m <- 'sat =~ sat1+sat2+sat3+sat4+sat5+sat6+sat7
tru =~ tru1+tru2+tru3+tru4
ctrl =~ ctrl1+ctrl2+ctrl3+ctrl4
und =~ und1+und2+und3+und4+und5
sat ~ tru + ctrl + und
tru ~ ctrl
ctrl ~ und + cfn*fname + cfp*fprofile
und ~ un*name + up*profile'
fit <- sem(m, data=tw2, ordered=names(tw2[6:25]), std.lv=T)
lavTestWald(fit, "cfn == 0; cfp == 0")
