Многоуровневая SEM - ошибка в lavsamplestats@mean[[g]]: индекс вне границ

Question

Я пытаюсь использовать Lavaan для проведения многоуровневого анализа SEM. Моя модель 1-1-1-2 модели. Поэтому я бы смоделировал 1-1-1 на уровне внутри и между уровнями, чтобы включить последний результат уровня 2. ниже мой код:

model <- '
level 1: within
FG =~ a*x1 + b*x2 + c*x3
PD =~ d*x4 + e*x5 + f*x6
FG ~ wc*MB + wb*PD
PD ~ wa*MB
level 2: between
FG =~ a*x1 + b*x2 + c*x3
PD =~ d*x4 + e*x5 + f*x6
FG ~ bc*MB + bb*PD
PD ~ ba*MB
NR ~ be*FG
## define parameters
wi := wa * wb
bi := ba * bb
bsi := ba * bb * be'
fitmodel <- sem(model=model, data=SMMB2short, cluster="ID", std.lv = TRUE)
summary(fitmodel, fit.measures=TRUE)

И я продолжаю получать эту ошибку:

Error in lavsamplestats@mean[[g]] : subscript out of bounds

Может кто-нибудь указать мне направление?