R version 3.2.2 (2015-08-14) -- "Fire Safety"
Copyright (C) 2015 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin13.4.0 (64-bit)

R は、自由なソフトウェアであり、「完全に無保証」です。 
一定の条件に従えば、自由にこれを再配布することができます。 
配布条件の詳細に関しては、'license()' あるいは 'licence()' と入力してください。 

R は多くの貢献者による共同プロジェクトです。 
詳しくは 'contributors()' と入力してください。 
また、R や R のパッケージを出版物で引用する際の形式については 
'citation()' と入力してください。 

'demo()' と入力すればデモをみることができます。 
'help()' とすればオンラインヘルプが出ます。 
'help.start()' で HTML ブラウザによるヘルプがみられます。 
'q()' と入力すれば R を終了します。 

[R.app GUI 1.66 (6996) x86_64-apple-darwin13.4.0]

[ワークスペースが次のファイルから読み込まれました /Users/hw/.RData]
[履歴が次のファイルから読み込まれました /Users/hw/.Rapp.history]

> #図表45の結果のもととなったもの
> library(lavaan)
> HS.model.sem <- '
+ share  =~ share1 + share2
+ kyoutai  =~ kyoutai1 + kyoutai2
+ hishoyu  =~ hishoyu1 + hishoyu2
+ kaihousei  =~ kaihousei1 + kaihousei2
+ seijitsusei  =~ seijitsusei1 + seijitsusei2
+ gaikousei  =~ gaikousei1 + gaikousei2
+ kyouchosei  =~ kyouchosei1 + kyouchosei2
+ shinkeisho  =~ shinkeisho1 + shinkeisho2 + shinkeisho3
+ share   ~hishoyu + kyoutai + kaihousei + seijitsusei + gaikousei + kyouchosei + shinkeisho + shareyear + satisfy + kyoumi
+ '
> fit.sem <- lavaan(HS.model.sem, data=x,　 auto.var=TRUE, auto.fix.first=TRUE,auto.cov.lv.x=TRUE)
> summary(fit.sem, fit.measures=TRUE,standardized=T,rsquare=T) #結果出力


> HS.model.sem <- '
+ share  =~ share1 + share2
+ kyoutai  =~ kyoutai1 + kyoutai2
+ hishoyu  =~ hishoyu1 + hishoyu2
+ kaihousei  =~ kaihousei1 + kaihousei2
+ seijitsusei  =~ seijitsusei1 + seijitsusei2
+ gaikousei  =~ gaikousei1 + gaikousei2
+ kyouchosei  =~ kyouchosei1 + kyouchosei2
+ shinkeisho  =~ shinkeisho1 + shinkeisho2 + shinkeisho3
+ share   ~hishoyu + kyoutai + kaihousei + seijitsusei + gaikousei + kyouchosei + shinkeisho + kyoumi
+ '
> fit.sem <- lavaan(HS.model.sem, data=y,　 auto.var=TRUE, auto.fix.first=TRUE,auto.cov.lv.x=TRUE)

> summary(fit.sem, fit.measures=TRUE,standardized=T,rsquare=T) #結果出力


#図表55の結果のもとになったもの
> HS.model.sem <- '
+ share  =~ share1 + share2
+ keizaifactor  =~ keizaifactor1 + keizaifactor2
+ koryu  =~ koryu1 + koryu2
+ setsubi =~ setsubi1 + setsubi2
+ ribensei =~ ribensei1 + ribensei2
+ keiyakuyoui  =~ keiyakuyoui1 + keiyakuyoui2
+ share   ~keiyakuyoui + koryu + setsubi + keizaifactor + ribensei + anshin + event
+ '

> fit.sem <- lavaan(HS.model.sem, data=x,　 auto.var=TRUE, auto.fix.first=TRUE,auto.cov.lv.x=TRUE)
> summary(fit.sem, fit.measures=TRUE,standardized=T,rsquare=T) #結果出力


#図表55の結果のもとになったもの
> HS.model.sem <- '
+ share  =~ share1 + share2
+ sharesc =~ totalnetwork + totalcooperate + totaltrust
+ tikisc =~ tikinetwork + tikicooperate + tikitrust
+ share   ~tikisc + sharesc
+ sharesc   ~sex + shareyear
+ tikisc   ~sex + shareyear
+ '
> fit.sem <- lavaan(HS.model.sem, data=x,　 auto.var=TRUE, auto.fix.first=TRUE,auto.cov.lv.x=TRUE)

> summary(fit.sem, fit.measures=TRUE,standardized=T,rsquare=T) #結果出力