Ошибка лавы - делает скрытую кривую роста
Я работаю над этим упражнением: https://www.youtube.com/watch?v=a4aBFoBsaBU но получаю сообщение об ошибке:
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)
library(semPlot)
#load a covariance table
heart.cov=lav_matrix_lower2full(c(
3.59,
3.11, 3.10,
2.91, 2.00, 2.82,
3.22, 3.05, 2.86, 3.30,
2.88, 2.63, 2.62, 2.82, 2.71))
heart.mean=c(11.97, 11.72, 12.03, 11.96, 12.10)
#name the columns
names(heart.mean)=rownames(heart.cov)=colnames(heart.cov)=c("Time1", "Time2",
"Time3", "Time4", "Time5")
#model 1; intercept only model (intercept average);
#set variance to 0 – everyone has same avg score;
model1 = "i=~ 1*Time1+1*Time2+1*Time3+1*Time4+1*Time5
i~~0*i
Time1 ~~r*Time1
Time2 ~~r*Time2
Time3 ~~r*Time3
Time4 ~~r*Time4
Time5 ~~r*Time5
"
order=c("df", "chisq", "rmsea", "smr", "cfi")
model1.fit=growth(model1, sample.cov=heart.cov, sample.mean=heart.mean,
sample.nobs=200)
Я получаю сообщение об ошибке после попытки запустить model1.fit. Есть мысли о том, что пошло не так?