#図表43と図表44の因子分析の結果
 x <- read.delim(pipe("pbpaste"))
 res3v<-factanal(x, factors = 8, rotation = "promax",scores="regression")
#図表45の重回帰分析の結果
 names(res3v)
 res3v$scores
  x <- read.delim(pipe("pbpaste"))
 summary(res12<-lm(x$Factor1 ~ x$Factor2 + x$Factor3 + x$Factor4 + x$Factor5 + x$Factor6 + x$Factor7 + x$Factor8 +,data=x))

#図表48の因子分析の結果
 x <- read.delim(pipe("pbpaste"))
 factanal(x, factors = 8, rotation = "promax",scores="regression")
 
#図表49の因子分析の結果
 x <- read.delim(pipe("pbpaste"))
 factanal(x, factors = 7, rotation = "promax",scores="regression")
 
#図表50の確認的因子分析の結果
 HS.model.cfa <- '
 GM  =~ Gm_use + GM_time + GM_money
 Challenge  =~ Challenge1 + Challenge2 + Challenge3
 EnjoyRec  =~ Enjoy1 + Enjoy2 + Rec1
 Compe  =~ Compe1 + Compe2 + Compe3
 Excite  =~ Excite1 + Excite2 + Excite3
 Fantasy  =~ Fantasy2 + Fantasy3
 Slocial  =~ Slocial2 + Slocial3'
 fit <- lavaan(HS.model.cfa, data=x, auto.var=TRUE, auto.fix.first=TRUE,auto.cov.lv.x=TRUE)
 summary(fit, fit.measures=TRUE,standardized=T,rsquare=T)

 #図表51のSEMの結果
 HS.model.sem <- '
 GM  =~ Gm_use + GM_time + GM_money
 Challenge  =~ Challenge1 + Challenge2 + Challenge3
 EnjoyRec  =~ Enjoy1 + Enjoy2 + Rec1
 Compe  =~ Compe1 + Compe2 + Compe3
 Excite  =~ Excite1 + Excite2 + Excite3
 Fantasy  =~ Fantasy2 + Fantasy3
 Slocial  =~ Slocial2 + Slocial3
 GM  ~Challenge + EnjoyRec + Compe + Excite + Fantasy + Slocial'
 
 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)

#図表54のコンジョイントの結果
 csv<-read.csv("/Users/kazuki/Documents/卒論/GMresult.csv",header=TRUE);
 csv_all<-csv[,-1]; 
 L9<-read.csv("/Users/kazuki/Documents/卒論/GM.csv",header=TRUE);
 attr<-read.csv("/Users/kazuki/Documents/卒論/levels_name.csv",header=TRUE);
 L9<-L9[,-1];
 Conjoint(csv_all,L9,attr);title(main="Importance of Factors(all data)");

#図表57のコンジョイントの結果
 csv<-read.csv("/Users/kazuki/Documents/卒論/GMresulthigh.csv",header=TRUE);
 csv_all<-csv[,-1]; 
 L9<-read.csv("/Users/kazuki/Documents/卒論/GM.csv",header=TRUE);
 attr<-read.csv("/Users/kazuki/Documents/卒論/levels_name.csv",header=TRUE);
 L9<-L9[,-1];
 Conjoint(csv_all,L9,attr);title(main="Importance of Factors(all data)");

#図表58のコンジョイントの結果
 csv<-read.csv("/Users/kazuki/Documents/卒論/GMresultlow.csv",header=TRUE);
 csv_all<-csv[,-1]; 
 L9<-read.csv("/Users/kazuki/Documents/卒論/GM.csv",header=TRUE);
 attr<-read.csv("/Users/kazuki/Documents/卒論/levels_name.csv",header=TRUE);
 L9<-L9[,-1];
 Conjoint(csv_all,L9,attr);title(main="Importance of Factors(all data)");