豊田秀樹＠早稲田大学文学部心理学教室です
お久しぶりです．さて，SPSS-JapanからAMOS4という共分散構造分析のための
ソフトの最新バージョンがでました．まだ4日間しか使ってませんが，感想を
レポートします．
最小限では有るけれど日本語のマニュアル，ヘルプ以外はソフトそのものが日
本語，変数名にも日本語が使え，とにかく「日本語化」がキーワードのソフト
で，これは他のソフトにない，初心者にとっての福音だと感じました．逆に言
うと高度なモデルの実行可能性は低く，その意味でLISRELやMPLUSやMXやEQSに
は追いついていない．しかし基本操作の使いやすさの完成度は1番という印象
です．
ただしテキスト言語であるAMOS-Textを廃止し，その代わりに上位互換でない
AMOS-Basicに「進化？」させたのは良くない．ヘビーユーザーの資産が生きず，
「書き直せ！」といわれているのに等しいからです．LISRELは70年代前半に
書いたスクリプトが今でもそのまま動くし，SIMPLISという新言語とは，常に
共存させて販売しています．AMOS４もTEXTとBASICを共存させるか，上位互換
にするべきでした．3.6のユーザーを裏切ったという実績は，４から学習する
ユーザーにさえ「自分達も5で裏切られるのでは？」という不信感を生じさせ
るからです．
ここから本題です．
小生は「共分散構造分析 -構造方程式モデリング- [入門編] 朝倉書店」
という教科書を出しています．AMOS4は上述したように現時点では初心者に最
適のソフトです．しかし卒論レベルでも，モデルの変更は頻繁に行う必要が
有り，その度にグラフィックスを書き換えるのはまったく非効率であり，初
級者から中級者になるときに，早晩テキストプログラミングに移行せざるを
得ません．ところが上記の教科書には3.6時代のスクリプトしか載っていません．
そこで緊急にAMOS-TextをAMOS-Basicに書き換えましたので，以下に掲載します．
学習に役立てて下さい．
ＦＰＲのメンバーで共分散構造分析に興味の無い人には，無駄なメールに
なるので，恐縮で，ずいぶん悩みました．しかし，ＨＰももっておらず，
21KBで，小さな画像程度なのでSUBJRCTにCAUTIONをつけて流すことにしました．
＝＝＞松井様（管理者の方）
米国の日本語化されていないＦＲＥＥバージョンで学習する人のために
変数に日本語は使っていません．営利目的でなく学習に使用する限りにおいて
再配布自由（奨励）とします．
ーーーーーーーーーーーーここから最後まで
n0101.txt
rowtype_,varname_,V1,V2,V3
n,,30,30,30
corr,V1,1.000,,
corr,V2,-0.077, 1.000 ,
corr,V3, 0.033, -0.223, 1.000
stddev,,1.000, 1.000, 1.000
'第３章 単回帰重回帰組合せ 趣味の印象
'データを書き換えれば他17の分析も実行可
Sub Main()
Dim Sem As New AmosEngine
Sem.TableOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0101.txt"
Sem.Structure "V2=( )V1+(1)E2"
Sem.Structure "V3=( )V2+( )V1+(1)E3"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0401.txt
rowtype_,varname_,V1,V2,V3
n,,130,130,130
cov,V1,63.29,,
cov,V2,49.78,48.2,
cov,V3,51.21,42.28,50.85
'第４章 単因子分析モデル 記憶テスト
Sub Main()
Dim Sem As New AmosEngine
Sem.TableOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0401.txt"
Sem.Structure "V1=( )F1+(1)E1"
Sem.Structure "V2=( )F1+(1)E2"
Sem.Structure "V3=( )F1+(1)E3"
Sem.Structure "F1(1)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0402.txt
rowtype_,varname_,V1,V2,V3,V4,V5
n,,100,100,100,100,100
corr,V1,1.00,,,,
corr,V2,0.38,1.00,,,
corr,V3,0.52,0.28,1.00,,
corr,V4,0.55,0.32,0.38,1.00,
corr,V5,0.36,0.40,0.48,0.31,1.00
stddev,,1.00,1.00,1.00,1.00,1.00
'第４章 ５つの学力テストモデル
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0402.txt"
Sem.Structure "V1=( )F1+(1)E1"
Sem.Structure "V2=( )F2+(1)E2"
Sem.Structure "V3=( )F1+( )F2+(1)E3"
Sem.Structure "V4=( )F1+( )F2+(1)E4"
Sem.Structure "V5=( )F2+(1)E5"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "E1<>E2( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
self.txt
V1,V2,V3,V4,V5,V6
3,3,2,1,3,4
4,3,2,2,5,6
3,4,2,1,4,5
3,3,2,2,4,4
4,3,2,3,4,5
3,4,2,2,3,4
3,3,3,2,3,3
1,2,3,2,3,3
3,4,2,2,4,4
4,4,4,3,4,3
1,2,1,2,4,4
4,6,1,1,4,4
3,3,2,2,4,4
4,4,1,2,3,3
4,3,3,3,3,3
2,2,3,3,4,4
2,4,3,3,4,4
2,3,2,3,4,4
4,4,1,1,4,5
4,2,2,2,4,3
4,4,3,3,3,3
2,3,1,2,4,4
2,2,3,3,4,4
4,5,2,2,4,5
3,3,3,3,4,4
2,4,3,4,3,4
3,5,1,1,4,4
3,4,2,1,3,5
2,1,2,2,4,4
2,3,2,2,4,4
'第４章 確認的因子分析モデル趣味の印象
Sub Main()
Dim Sem As New AmosEngine
Sem.Standardized
Sem.Smc
Sem.TextOutput
Sem.BeginGroup "self.txt"
Sem.Structure "V1=(A)F1+(1)E1"
Sem.Structure "V2=(A)F1+(1)E2"
Sem.Structure "V3=(B)F2+(1)E3"
Sem.Structure "V4=(B)F2+(1)E4"
Sem.Structure "V5=(C)F3+(1)E5"
Sem.Structure "V6=(C)F3+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F3(1)"
Sem.Structure "E1(D)"
Sem.Structure "E2(D)"
Sem.Structure "E3(E)"
Sem.Structure "E4(E)"
Sem.Structure "E5(F)"
Sem.Structure "E6(F)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""";
n0501.txt
rowtype_,varname_,V1,V2,V3
n,,432,432,432
corr,V1,1.000,,
corr,V2,0.383,1.000,
corr,V3,0.277,0.538,1.000
stddev,,1.000,1.000,1.000
'第５章 連結モデル 主観客観的社会地位
Sub Main()
Dim Sem As New AmosEngine
Sem.Standardized
Sem.Smc
Sem.TextOutput
Sem.BeginGroup "n0501.txt"
Sem.Structure "V2=( )V1+(1)E2"
Sem.Structure "V3=( )V2+(1)E3"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0502.txt
rowtype_,varname_,V1,V2,V3,V4
n,,432,432,432,432
corr,V1,1.000,,,
corr,V2,0.292,1.000,,
corr,V3,0.383,0.166,1.000,
corr,V4,0.184,0.282,0.387,1.000
stddev,,1.000,1.000,1.000,1.000
'第５章 逐次モデル 主観客観的社会地位
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0502.txt"
Sem.Structure "V3=( )V1+( )V2+(1)E3"
Sem.Structure "V4=( )V2+( )V3+(1)E4"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第５章 完全逐次モデル主観客観的社会地位
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0502.txt"
Sem.Structure "V2=( )V1+(1)E2"
Sem.Structure "V3=( )V1+( )V2+(1)E3"
Sem.Structure "V4=( )V1+( )V2+( )V3+(1)E4"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第５章 多変量回帰分析主観客観的社会地位
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0502.txt"
Sem.Structure "V3=( )V1+( )V2+(1)E3"
Sem.Structure "V4=( )V1+( )V2+(1)E4"
Sem.Structure "E3<>E4( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0505.txt
rowtype_,varname_,V1,V2,V3,V4,V5
n,,432,432,432,432,432
corr,V1,1.000,,,,
corr,V2,0.292,1.000,,,
corr,V3,0.383,0.166,1.000,,
corr,V4,0.184,0.282,0.387,1.000,
corr,V5,0.277,0.231,0.538,0.431,1.000
stddev,,1.000,1.000,1.000,1.000,1.000
'第５章 非逐次モデル主観客観的社会地位
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0505.txt"
Sem.Structure "V3=(0.3?)V1+(0.2?)V4+(1)E3"
Sem.Structure "V4=(0.2?)V2+(0.3?)V3+(1)E4"
Sem.Structure "V5=(0.4?)V3+(0.5?)V4+(1)E5"
Sem.Structure "E4<>E3( )"
Sem.Structure "E5<>E3( )"
Sem.Structure "E5<>E4( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第５章外生的観測変数と誤差変数の相関モデル
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0505.txt"
Sem.Structure "V3=( )V1+(1)E3"
Sem.Structure "V4=( )V2+(1)E4"
Sem.Structure "V5=( )V3+( )V4+(1)E5"
Sem.Structure "E3<>V2( )"
Sem.Structure "E4<>V1( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第５章 階数条件を使えない非逐次モデル
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0505.txt"
Sem.Structure "V3=( )V1+(1)E3"
Sem.Structure "V4=( )V2+( )V3+( )V5+(1)E4"
Sem.Structure "V5=( )V3+( )V4+(1)E5"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第６章 趣味に対する印象 -分析2-
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "self.txt"
Sem.Structure "V1=(1)F1+(1)E1"
Sem.Structure "V2=(1)F1+(1)E2"
Sem.Structure "V3=(1)F2+(1)E3"
Sem.Structure "V4=(1)F2+(1)E4"
Sem.Structure "V5=(1)F3+(1)E5"
Sem.Structure "V6=(1)F3+(1)E6"
Sem.Structure "F2=( )F1+(1)D2"
Sem.Structure "F3=( )F2+( )F1+(1)D3"
Sem.Structure "E1(A)"
Sem.Structure "E2(A)"
Sem.Structure "E3(B)"
Sem.Structure "E4(B)"
Sem.Structure "E5(C)"
Sem.Structure "E6(C)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0602.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,100,100,100,100,100,100
corr,V1,1.000,,,,,
corr,V2,0.703,1.000,,,,
corr,V3,0.432,0.469,1.000,,,
corr,V4,0.424,0.461,0.738,1.000,,
corr,V5,0.330,0.303,0.471,0.427,1.000,
corr,V6,0.348,0.388,0.433,0.490,0.717,1.000
stddev,,1.000,1.000,1.000,1.000,1.000,1.000
'第６章 ２次因子分析
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0602.txt"
Sem.Structure "V1=(1)F2+(1)E1"
Sem.Structure "V2=( )F2+(1)E2"
Sem.Structure "V3=(1)F3+(1)E3"
Sem.Structure "V4=( )F3+(1)E4"
Sem.Structure "V5=(1)F4+(1)E5"
Sem.Structure "V6=( )F4+(1)E6"
Sem.Structure "F2=( )F1+(1)D2"
Sem.Structure "F3=( )F1+(1)D3"
Sem.Structure "F4=( )F1+(1)D4"
Sem.Structure "F1(1)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0603.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,100,100,100,100,100,100
corr,V1,1.000,,,,,
corr,V2,0.434,1.000,,,,
corr,V3,0.508,0.459,1.000,,,
corr,V4,0.359,0.142,0.248,1.000,,
corr,V5,0.220,0.234,0.215,0.816,1.000,
corr,V6,0.259,0.299,0.220,0.868,0.779,1.000
stddev,,1.000,1.000,1.000,1.000,1.000,1.000
'第６章 ＭＩＭＩＣモデル
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0603.txt"
Sem.Structure "V4=(1)F1+(1)E4"
Sem.Structure "V5=( )F1+(1)E5"
Sem.Structure "V6=( )F1+(1)E6"
Sem.Structure "F1=( )V1+( )V2+( )V3+(1)D1"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0604.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,100,100,100,100,100,100
corr,V1,1.000,,,,,
corr,V2,0.610,1.000,,,,
corr,V3,0.422,0.297,1.000,,,
corr,V4,0.268,0.419,0.660,1.000,,
corr,V5,0.466,0.223,0.400,0.228,1.000,
corr,V6,0.221,0.458,0.241,0.412,0.585,1.000
stddev,,1.000,1.000,1.000,1.000,1.000,1.000
'第６章 縦断的モデル１
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0604.txt"
Sem.Structure "V1=(1)F1+(1)E1"
Sem.Structure "V2=( )F1+(1)E2"
Sem.Structure "V3=(1)F2+(1)E3"
Sem.Structure "V4=( )F2+(1)E4"
Sem.Structure "V5=(1)F3+(1)E5"
Sem.Structure "V6=( )F3+(1)E6"
Sem.Structure "F2=( )F1+(1)D2"
Sem.Structure "F3=( )F2+(1)D3"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第６章 縦断的モデル２
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0604.txt"
Sem.Structure "V1=(1)F1+(1)F3+(1)E1"
Sem.Structure "V2=(1)F2+(1)F3+(1)E2"
Sem.Structure "V3=( )F1+(1)F4+(1)E3"
Sem.Structure "V4=( )F2+(1)F4+(1)E4"
Sem.Structure "V5=( )F1+(1)F5+(1)E5"
Sem.Structure "V6=( )F2+(1)F5+(1)E6"
Sem.Structure "F4=( )F3+(1)D4"
Sem.Structure "F5=( )F4+(1)D5"
Sem.Structure "F1<>F2(0)"
Sem.Structure "F2<>F3(0)"
Sem.Structure "F1<>F3(0)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0606.txt
rowtype_,varname_,V1,V2,V3,V4,V5
n,,100,100,100,100,100
corr,V1,1.000,,,,
corr,V2,0.493,1.000,,,
corr,V3,0.327,0.532,1.000,,
corr,V4,0.241,0.422,0.625,1.000,
corr,V5,0.166,0.382,0.533,0.699,1.000
stddev,,1.000,1.000,1.000,1.000,1.000
'第６章 シンプレックス構造分析
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0606.txt"
Sem.Structure "V1=(1)F1+(1)E1"
Sem.Structure "V2=(1)F2+(1)E2"
Sem.Structure "V3=(1)F3+(1)E3"
Sem.Structure "V4=(1)F4+(1)E4"
Sem.Structure "V5=(1)F5+(1)E5"
Sem.Structure "F2=( )F1+(1)D2"
Sem.Structure "F3=( )F2+(1)D3"
Sem.Structure "F4=( )F3+(1)D4"
Sem.Structure "F5=( )F4+(1)D5"
Sem.Structure "E1(A)"
Sem.Structure "E2(A)"
Sem.Structure "E3(A)"
Sem.Structure "E4(A)"
Sem.Structure "E5(A)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0607.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,100,100,100,100,100,100
corr,V1,1.000,,,,,
corr,V2,-.782,1.000,,,,
corr,V3,0.253,-.244,1.000,,,
corr,V4,-.213,0.193,-.718,1.000,,
corr,V5,0.429,-.452,0.574,-.562,1.000,
corr,V6,-.486,0.404,-.578,0.512,-.705,1.000
stddev,,1.000,1.000,1.000,1.000,1.000,1.000
'第６章 図６．１２ 問題２
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0607.txt"
Sem.Structure "V1=(1)F1+(1)E1"
Sem.Structure "V2=( )F1+(1)E2"
Sem.Structure "V3=(1)F2+(1)E3"
Sem.Structure "V4=( )F2+(1)E4"
Sem.Structure "V5=(-1)F3+(1)E5"
Sem.Structure "V6=( )F3+(1)E6"
Sem.Structure "F3=( )F2+( )F1+(1)D3"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0801.txt
rowtype_,varname_,V1,V2,V3,V4,V5
n,,100,100,100,100,100
corr,V1,1.000,,,,
corr,V2,0.945,1.000,,,
corr,V3,0.840,0.720,1.000,,
corr,V4,0.735,0.630,0.560,1.000,
corr,V5,0.630,0.540,0.480,0.420,1.000
stddev,,1.000,1.000,1.000,1.000,1.000
'第８章 Harman H. H.,の不適解の数値例
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0801.txt"
Sem.Structure "V1=( )F1+(1)E1"
Sem.Structure "V2=( )F1+(1)E2"
Sem.Structure "V3=( )F1+(1)E3"
Sem.Structure "V4=( )F1+(1)E4"
Sem.Structure "V5=( )F1+(1)E5"
Sem.Structure "F1(1)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n0802.txt
rowtype_,varname_,V1,V2,V3,V4
n,,100,100,100,100
corr,V1,1.00,,,
corr,V2,0.54,1.00,,
corr,V3,0.50,0.40,1.00,
corr,V4,0.38,0.37,0.32,1.00
stddev,,1.00,1.00,1.00,1.00
'第８章 問題
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n0802.txt"
Sem.Structure "V1=(0.8?)F1+(1)E1"
Sem.Structure "V2=(0.7?)F1+(1)E2"
Sem.Structure "V3=(0.6?)F1+(1)E3"
Sem.Structure "V4=(0.5?)F1+(1)E4"
Sem.Structure "F1(1)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
'第13章 趣味の印象の因子の平均とＳＤ
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.ModelMeansAndIntercepts
Sem.Standardized
Sem.Smc
Sem.BeginGroup "self.txt"
Sem.Structure "V1 =(A)+(C)F1+(1)E1"
Sem.Structure "V2 =(B)+(D)F1+(1)E2"
Sem.Structure "V3 =(A)+(C)F2+(1)E3"
Sem.Structure "V4 =(B)+(D)F2+(1)E4"
Sem.Structure "V5 =(A)+(C)F3+(1)E5"
Sem.Structure "V6 =(B)+(D)F3+(1)E6"
Sem.Structure "F1(1)"
Sem.Mstructure "F1(0)"
Sem.Mstructure "F2"
Sem.Mstructure "F3"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n1302.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6,V7,V8
n,,1472,1472,1472,1472,1472,1472,1472,1472
corr,V1,1.000,,,,,,,
corr,V2,0.269,1.000,,,,,,
corr,V3,0.247,0.321,1.000,,,,,
corr,V4,0.166,0.230,0.328,1.000,,,,
corr,V5,0.534,0.210,0.204,0.141,1.000,,,
corr,V6,0.235,0.422,0.220,0.146,0.270,1.000,,
corr,V7,0.231,0.262,0.415,0.211,0.283,0.349,1.000,
corr,V8,0.209,0.142,0.212,0.636,0.295,0.265,0.389,1.000
mean,,12.36,12.12,12.79,12.22,13.57,13.18,13.83,13.58
stddev,,1.802,1.898,2.128,2.928,1.472,1.804,1.897,2.874
'第１３章 知能検査の縦断データの分析
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.ModelMeansAndIntercepts
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n1302.txt"
Sem.Structure "V1=(A)+(E)F1+(1)E1"
Sem.Structure "V2=(B)+(F)F1+(1)E2"
Sem.Structure "V3=(C)+(G)F1+(1)E3"
Sem.Structure "V4=(D)+(H)F1+(1)E4"
Sem.Structure "V5=(A)+(E)F2+(1)E5"
Sem.Structure "V6=(B)+(F)F2+(1)E6"
Sem.Structure "V7=(C)+(G)F2+(1)E7"
Sem.Structure "V8=(D)+(H)F2+(1)E8"
Sem.Structure "F1=(0) +(1)D1"
Sem.Structure "F2=( )+( )F1+(1)D2"
Sem.Structure "D1(1)"
Sem.Structure "E1(I)"
Sem.Structure "E2(J)"
Sem.Structure "E3(K)"
Sem.Structure "E4(L)"
Sem.Structure "E5(I)"
Sem.Structure "E6(J)"
Sem.Structure "E7(K)"
Sem.Structure "E8(L)"
Sem.Structure "E1<>E5( )"
Sem.Structure "E2<>E6( )"
Sem.Structure "E3<>E7( )"
Sem.Structure "E4<>E8( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n1401a.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,316,316,316,316,316,316
corr,V1,1.000,,,,,
corr,V2,0.660,1.000,,,,
corr,V3,0.549,0.505,1.000,,,
corr,V4,0.139,0.163,0.058,1.000,,
corr,V5,0.115,0.139,0.101,0.574,1.000,
corr,V6,0.028,0.053,0.039,0.354,0.269,1.000
mean,,1.187,1.427,1.282,2.275,2.158,1.896
stddev,,0.647,0.660,0.637,0.555,0.541,0.551
n1401b.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,609,609,609,609,609,609
corr,V1,1.000,,,,,
corr,V2,0.656,1.000,,,,
corr,V3,0.526,0.564,1.000,,,
corr,V4,0.340,0.287,0.334,1.000,,
corr,V5,0.320,0.252,0.293,0.740,1.000,
corr,V6,0.244,0.221,0.240,0.515,0.456,1.000
mean,,0.913,1.154,1.117,2.135,1.998,1.769
stddev,,0.657,0.680,0.634,0.701,0.673,0.664
'第14章 偏差値模試(進学率60から80％)
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.ModelMeansAndIntercepts
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n1401a.txt"
Sem.Structure "V1=(A)+(G)F1+(1)E1"
Sem.Structure "V2=(B)+(H)F1+(1)E2"
Sem.Structure "V3=(C)+(I)F1+(1)E3"
Sem.Structure "V4=(D)+(J)F2+(1)E4"
Sem.Structure "V5=(E)+(K)F2+(1)E5"
Sem.Structure "V6=(F)+(L)F2+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F1<>F2( )"
'第14章 偏差値模試(進学率80から100％)
Sem.BeginGroup "n1401b.txt"
Sem.Structure "V1=(A)+(G)F1+(1)E1"
Sem.Structure "V2=(B)+(H)F1+(1)E2"
Sem.Structure "V3=(C)+(I)F1+(1)E3"
Sem.Structure "V4=(D)+(J)F2+(1)E4"
Sem.Structure "V5=(E)+(K)F2+(1)E5"
Sem.Structure "V6=(F)+(L)F2+(1)E6"
Sem.Structure "F1=()+(1)D1"
Sem.Structure "F2=()+(1)D2"
Sem.Structure "D1()"
Sem.Structure "D2()"
Sem.Structure "D1<>D2( )"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n1402a.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,170,170,170,170,170,170
corr,V1,1.000,,,,,
corr,V2,0.540,1.000,,,,
corr,V3,0.621,0.675,1.000,,,
corr,V4,0.376,0.379,0.406,1.000,,
corr,V5,0.205,0.380,0.334,0.509,1.000,
corr,V6,0.340,0.440,0.393,0.482,0.637,1.000
mean,,5.742,4.957,3.896,5.842,4.750,3.745
stddev,,1.416,1.496,1.436,1.778,1.986,1.954
n1402b.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,200,200,200,200,200,200
corr,V1,1.000,,,,,
corr,V2,0.629,1.000,,,,
corr,V3,0.589,0.661,1.000,,,
corr,V4,0.360,0.364,0.406,1.000,,
corr,V5,0.293,0.296,0.392,0.618,1.000,
corr,V6,0.310,0.309,0.383,0.653,0.631,1.000
mean,,6.012,5.167,4.023,6.018,5.032,3.995
stddev,,2.199,1.911,2.008,1.612,1.514,1.463
n1402c.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,270,270,270,270,270,270
corr,V1,1.000,,,,,
corr,V2,0.577,1.000,,,,
corr,V3,0.593,0.670,1.000,,,
corr,V4,0.330,0.401,0.470,1.000,,
corr,V5,0.323,0.459,0.422,0.544,1.000,
corr,V6,0.372,0.434,0.475,0.600,0.669,1.000
mean,,5.888,5.045,3.946,6.063,4.944,3.968
stddev,,1.600,1.579,1.600,2.045,2.120,2.002
n1402d.txt
rowtype_,varname_,V1,V2,V3,V4,V5,V6
n,,130,130,130,130,130,130
corr,V1,1.000,,,,,
corr,V2,0.556,1.000,,,,
corr,V3,0.581,0.713,1.000,,,
corr,V4,0.306,0.335,0.418,1.000,,
corr,V5,0.401,0.415,0.525,0.557,1.000,
corr,V6,0.464,0.496,0.594,0.604,0.692,1.000
mean,,5.934,4.699,3.726,6.035,4.674,3.909
stddev,,1.480,1.489,1.524,1.888,2.115,2.153
'第14章 不完全データの分析(第1グループ)
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.ModelMeansAndIntercepts
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n1402a.txt"
Sem.Structure "V1=(AA)+(AB)F1+(1)E1"
Sem.Structure "V2=(BA)+(BB)F1+(1)E2"
Sem.Structure "V3=(CA)+(CB)F1+(1)E3"
Sem.Structure "V4=(DA)+(DB)F2+(1)E4"
Sem.Structure "V5=(EA)+(EB)F2+(1)E5"
Sem.Structure "V6=(FA)+(FB)F2+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F1<>F2(Y)"
Sem.Structure "E1(AC)"
Sem.Structure "E2(BC)"
Sem.Structure "E3(CC)"
Sem.Structure "E4(DC)"
Sem.Structure "E5(EC)"
Sem.Structure "E6(FC)"
'第14章 不完全データの分析(第2グループ)
Sem.BeginGroup "n1402b.txt"
Sem.Structure "V1=(DA)+(DB)F2+(1)E1"
Sem.Structure "V2=(EA)+(EB)F2+(1)E2"
Sem.Structure "V3=(FA)+(FB)F2+(1)E3"
Sem.Structure "V4=(GA)+(GB)F1+(1)E4"
Sem.Structure "V5=(HA)+(HB)F1+(1)E5"
Sem.Structure "V6=(IA)+(IB)F1+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F1<>F2(Y)"
Sem.Structure "E1(DC)"
Sem.Structure "E2(EC)"
Sem.Structure "E3(FC)"
Sem.Structure "E4(GC)"
Sem.Structure "E5(HC)"
Sem.Structure "E6(IC)"
'第14章 不完全データの分析(第3グループ)
Sem.BeginGroup "n1402c.txt"
Sem.Structure "V1=(GA)+(GB)F1+(1)E1"
Sem.Structure "V2=(HA)+(HB)F1+(1)E2"
Sem.Structure "V3=(IA)+(IB)F1+(1)E3"
Sem.Structure "V4=(JA)+(JB)F2+(1)E4"
Sem.Structure "V5=(KA)+(KB)F2+(1)E5"
Sem.Structure "V6=(LA)+(LB)F2+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F1<>F2(Y)"
Sem.Structure "E1(GC)"
Sem.Structure "E2(HC)"
Sem.Structure "E3(IC)"
Sem.Structure "E4(JC)"
Sem.Structure "E5(KC)"
Sem.Structure "E6(LC)"
'第14章 不完全データの分析(第4グループ)
Sem.BeginGroup "n1402d.txt"
Sem.Structure "V1=(AA)+(AB)F1+(1)E1"
Sem.Structure "V2=(BA)+(BB)F1+(1)E2"
Sem.Structure "V3=(CA)+(CB)F1+(1)E3"
Sem.Structure "V4=(JA)+(JB)F2+(1)E4"
Sem.Structure "V5=(KA)+(KB)F2+(1)E5"
Sem.Structure "V6=(LA)+(LB)F2+(1)E6"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F1<>F2(Y)"
Sem.Structure "E1(AC)"
Sem.Structure "E2(BC)"
Sem.Structure "E3(CC)"
Sem.Structure "E4(JC)"
Sem.Structure "E5(KC)"
Sem.Structure "E6(LC)"
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""
n1403a.txt
rowtype_,varname_,V1,V2
n,,171,171
cov,V1,1.280,
cov,V2,0.766,1.194
n1403b.txt
rowtype_,varname_,V1,V2
n,,101,101
cov,V1,1.077,
cov,V2,0.463,0.962
'第１４章 行動遺伝学ＡＣＥモデル ＭＺ
Sub Main()
Dim Sem As New AmosEngine
Sem.TextOutput
Sem.Standardized
Sem.Smc
Sem.BeginGroup "n1403a.txt"
Sem.Structure "V1=(A)F1+(C)F3+(E)F4+(1)E1"
Sem.Structure "V2=(A)F2+(C)F3+(E)F5+(1)E2"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F3(1)"
Sem.Structure "F4(1)"
Sem.Structure "F5(1)"
Sem.Structure "E1(0)"
Sem.Structure "E2(0)"
Sem.Structure "F2<>F1(1)"
'第１４章 行動遺伝学ＡＣＥモデル ＤＺ
Sem.BeginGroup "n1403b.txt"
Sem.Structure "V1=(A)F1+(C)F3+(E)F4+(1)E1"
Sem.Structure "V2=(A)F2+(C)F3+(E)F5+(1)E2"
Sem.Structure "F1(1)"
Sem.Structure "F2(1)"
Sem.Structure "F3(1)"
Sem.Structure "F4(1)"
Sem.Structure "F5(1)"
Sem.Structure "E1(0)"
Sem.Structure "E2(0)"
Sem.Structure "F2<>F1(0.5)"
End Sub
--
--------------------------------------------------------------------------
TOYODA Hideki Ph.D., Associate Professor, Department of Psychology
TEL +81-3-5286-3567 School of Lieterature, Waseda University
toyoda (at) mn.waseda.ac.jp 1-24-1 Toyama Shinjyuku-ku, Tokyo 162-8644 Japan
-----------------------------------------------------------------------
ここは心理学研究の基礎メーリングリストに投稿された過去の記事を掲載しているページです。