共分散構造分析[R編]ってないの？[第３章6]その3 PLSモデル

図3.19は端折って、「共分散構造分析［Amos編］－構造方程式モデリング－」の63頁にあるPLSモデル図3.20を計算してみます。
以下のようにモデルを書いたファイルをsemi.3.20.txtとして保存しました。

テキスト -> 講師の質, p1, NA
プレゼン -> 講師の質, p2, NA
ペース   -> 講師の質, p3, NA
講師対処 -> 講師の質, p4, NA
充実感   -> 満足度,   p5, NA
充実感   -> 理解度,   p6, NA
充実感   -> 目的一致, NA, 1          #1に制約
講師の質 -> 充実感,   NA, 1          #1に制約
テキスト <-> テキスト, v1, NA
プレゼン <-> プレゼン, v2, NA
ペース   <-> ペース,   v3, NA
講師対処 <-> 講師対処, v4, NA
満足度 <-> 満足度,     e1, NA
理解度 <-> 理解度,     e2, NA
目的一致 <-> 目的一致, e3, NA
充実感 <-> 充実感,     v5, NA
講師の質 <-> 講師の質, NA, 0           #0に制約
テキスト <-> プレゼン, c1, NA
テキスト <-> ペース,   c2, NA
テキスト <-> 講師対処, c3, NA
プレゼン <-> ペース,   c4, NA
プレゼン <-> 講師対処, c5, NA
ペース <-> 講師対処,   c6, NA
</-></-></-></-></-></-></-></-></-></-></-></-></-></-></->

実行します。

semi.mdl <- specifyModel("semi.3.20.txt")
(semi.sem <- sem(semi.mdl, data=semi.data, debug=TRUE))
summary(semi.sem)
stdCoef(semi.sem)
round(1-diag(semi.sem$P[-8,-8] / semi.sem$S),2)
round(cov2cor(semi.sem$P),2)

講師の質の分散を1に制約すると、充実感の分散が負になってしまいます。
淡々とやりましたが、少し気になることがあります。名城大学人間学部人間学科神谷研究室ホームページの共分散構造分析でも、「原因をさぐる統計学」(講談社ブルーバックス)に記載されているデータを基にRでPLSモデルを計算しておられます。ここでは、「洋食傾向」という指標化された変数があって、その分散の制約は1になっています。上で書いたこととは違うじゃん。実際、制約を1にすると本に記載されている係数が求められます。「洋食傾向」の制約を0にすると識別できません。
ついでに試してみると、制約を1にした場合でも、相関係数ではなく元データをそのものをデータフレームでsem()関数に与えると識別できません。 どういうことなんだ！わけわかんない。(@o@)そう、僕は嘘つきというより、ばかなんですよね。