install.packages('lavaan') #paket yükleme kodu
library(lavaan) #her zaman yazılmalı, paket o şekilde çağırılıyor.

okunanVeri <- read.csv(file.choose(),sep=";",header=TRUE) #csv dosyasından internaktif dosya seçerek, ; ile ayırılmış headerı olan veriyi seçtik.

head(okunanVeri) #Başlık
colnames(okunanVeri) #Sutun isimleri
nrow(okunanVeri) #satır sayısı
ncol(okunanVeri) #sutun sayısı

#Çekicilik
C <-"Cekicilik=~ C1+C2+C3+C4"
fit1<-cfa(C,data = okunanVeri,std.lv=TRUE) #Doğrulayıcı faktör analizi fit1 değişkeni ise uyum anlamına geliyor,
summary(fit1,fit.measures=TRUE,standardized=TRUE)

#Uzmanlık
U <-"Uzmanlik=~ U1+U2+U3+U4"
fit2<-cfa(U,data = okunanVeri,std.lv=TRUE)
summary(fit2,fit.measures=TRUE,standardized=TRUE)

#Güvenilirlik
G <-"Guvenilirlik=~ G1+G2+G3+G4"
fit3<-cfa(G,data = okunanVeri,std.lv=TRUE)
summary(fit3,fit.measures=TRUE,standardized=TRUE)

#Benzerlik
B <-"Benzerlik=~ B1+B2+B3"
fit4<-cfa(B,data = okunanVeri,std.lv=TRUE)
summary(fit4,fit.measures=TRUE,standardized=TRUE)

#Dağıtım Analizi
DA <-"Dagitimadaleti=~ DA1+DA2+DA3"
fit5<-cfa(DA,data = okunanVeri,std.lv=TRUE)
summary(fit5,fit.measures=TRUE,standardized=TRUE)

#Kişiler arası adalet
KA <-"Kisilerarasi_adalet=~ KA1+KA2+KA3"
fit6<-cfa(KA,data = okunanVeri,std.lv=TRUE)
summary(fit6,fit.measures=TRUE,standardized=TRUE)

#Usul inceligi
UI <-"usulinceligi=~ UI1+UI2+UI3"
fit7<-cfa(UI,data = okunanVeri,std.lv=TRUE)
summary(fit7,fit.measures=TRUE,standardized=TRUE)

#Bilgi Adaleti
BA <-"bilgiadaleti=~ BA1+BA2+BA3"
fit8<-cfa(BA,data = okunanVeri,std.lv=TRUE)
summary(fit8,fit.measures=TRUE,standardized=TRUE)

#Paragrafsal İlişki
PI <-"paragrafsaliliski=~ PI1+PI2+PI3+PI4+PI5+PI6"
fit9<-cfa(PI,data = okunanVeri,std.lv=TRUE)
summary(fit9,fit.measures=TRUE,standardized=TRUE)

#Satın Alma Niyeti
SA <-"satinalma=~ SA1+SA2+SA3+SA4+SA5+SA6"
fit10<-cfa(SA,data = okunanVeri,std.lv=TRUE)
summary(fit10,fit.measures=TRUE,standardized=TRUE)