[R]semパッケージでの多母集団同時分析で「 配列に 'dimnames' 属性がありません 」というエラーが解決できません

前提

rでsemパッケージを用い、多母集団同時分析を実行しようとしています。
dfの"fan"列で２つのグループに分け、分析を行いたいです。

あらかじめ探索的因子分析・確証的因子分析（CFA）を実行し、そこで作成したモデルを多母集団同時分析で適用しようとしました。ですが、

> vcov[par.names, par.names] でエラー: > 配列に 'dimnames' 属性がありません

というエラーが発生し結果を確認することができません。
どこを改善すれば良いでしょうか。
https://www.educa.nagoya-u.ac.jp/~ishii-h/materials/Rscripts_ishii.pdf
を参考にしています。

実現したいこと

発生している問題・エラーメッセージ

> summary(sem.mg.seq) vcov[par.names, par.names] でエラー: 配列に 'dimnames' 属性がありません

該当のソースコード

library(sem) setwd("作業ディレクトリ") d1 <- read.table("csvファイル", header=TRUE, sep=",") d1 <- d1[,c(-1)]#行番号を削除 # 適合度指標出力の指定 opt <- options(fit.indices = c("GFI", "AGFI", "RMSEA", "NFI", "NNFI", "CFI", "RNI", "IFI", "SRM R", "AIC", "AICc", "BIC", "CAIC")) #変数名の変更(式を書くのにはこのほうが簡単) colnames(d1) <- c("x1", "x2", "x3", "x4","x5", "x6", "x7", "x8", "x9", "x10", "x11", "x12", "x13", "x14", "x15", "x16", "fan") vn.itemx <- c("x1","x2","x3","x4","x5","x6","x7","x8","x9","x10","x11", "x12", "x13", "x14", "x15", "x16") cov.d1 <- cov(d1[,vn.itemx]) cor.d1 <- cor(d1[,vn.itemx]) #モデルの指定 #１つ目のモデル seq.1 <- specifyEquations() （推定したモデル） #以上 #2つ目のモデル seq.2 <- specifyEquations() （推定したモデル） #以上 #多母集団分析 mg.seq <- multigroupModel(seq.1, seq.2, groups=c("グループ１","グループ２")) d1$fan <- factor(d1$fan) sem.mg.seq <- sem(mg.seq, data=d1, group="fan") summary(sem.mg.seq)

試したこと

sem.mg.seqを表示し、中身を確認したところ、$coeffで異常な値を示していた項目があったため（x〇〇など）モデルから削除してみましたが、エラーはなくなりませんでした。。

補足情報（FW/ツールのバージョンなど）

rstudioで実行、参考にしているページは
https://www.educa.nagoya-u.ac.jp/~ishii-h/materials/Rscripts_ishii.pdf
です。