Can anyone help me with is error message. Can really figure out what it mean and how I can fix this:
Error in lav_samplestats_icov(COV = cov[[g]], ridge = ridge, x.idx = x.idx[[g]], :
lavaan ERROR: sample covariance matrix is not positive-definite
library(lavaan)
model <- '
# measurement model
PEOU =~ PEOU1 + PEOU2 + PEOU3
PU =~ PU1 + PU2 + PU3
LN =~ LN1 + LN2 + LN3
A =~ A1 + A2
BI =~ BI1
# regressions
PU ~ PEOU
PEOU ~ LN
A ~ PU + PEOU
BI ~ A
'
myNames <- lavNames(sem(model))
myData <- Mappe1[myNames]
myData <- myData[complete.cases(myData), ] # unnecessary if no missing data
myCov <- cov(myData)
round(myCov, 2)
## check whether any correlations are perfect (i.e., collinearity)
myCor <- cov2cor(myCov)
noDiag <- myCor
diag(noDiag) <- 0
any(noDiag == 1)
## if not, check for multicollinearity (i.e., is one variable a linear combination of 2+ variables?)
det(myCov) < 0
## or
any(eigen(myCov)$values < 0)
lavaan::sem(model, data=Mappe1)
fit <- lavaan::sem(model, data=Mappe1)
summary(fit, standardized=TRUE)