[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)