lg.drinks <- ' i =~ 1*drinks_a1 + 1*drinks_a2 + 1*drinks_a3
s =~ 0*drinks_a1 + 1*drinks_a2 + 2*drinks_a3
'
fit.lg.drinks <- growth(lg.drinks, data=dat)
summary(fit.lg.drinks)
In short, I get an error and negative variances. How do I know if this is a problem with (1) my model or (2) my data, and second, how do I fix this? Is my output valid? Help?
lavaan (0.5-23.1097) converged normally after 74 iterations
Used Total
Number of observations 147 322
Estimator ML
Minimum Function Test Statistic 2.906
Degrees of freedom 1
P-value (Chi-square) 0.088
Parameter Estimates:
Information Expected
Standard Errors Standard
Latent Variables:
Estimate Std.Err z-value P(>|z|)
i =~
drinks_a1 1.000
drinks_a2 1.000
drinks_a3 1.000
s =~
drinks_a1 0.000
drinks_a2 1.000
drinks_a3 2.000
Covariances:
Estimate Std.Err z-value P(>|z|)
i ~~
s -28.197 6.545 -4.308 0.000
Intercepts:
Estimate Std.Err z-value P(>|z|)
.drinks_a1 0.000
.drinks_a2 0.000
.drinks_a3 0.000
i 5.228 0.610 8.575 0.000
s 0.621 0.262 2.373 0.018
Variances:
Estimate Std.Err z-value P(>|z|)
.drinks_a1 -42.452 10.442 -4.065 0.000
.drinks_a2 68.382 9.276 7.372 0.000
.drinks_a3 -3.701 11.236 -0.329 0.742
i 105.024 15.316 6.857 0.000
s 23.257 4.986 4.665 0.000