#installpackage

library(psych)
## Warning: package 'psych' was built under R version 4.3.2
library(Hmisc)
## 
## Attaching package: 'Hmisc'
## The following object is masked from 'package:psych':
## 
##     describe
## The following objects are masked from 'package:base':
## 
##     format.pval, units
library(MVN)
## Warning: package 'MVN' was built under R version 4.3.2
library(REdaS)
## Warning: package 'REdaS' was built under R version 4.3.2
## Loading required package: grid
library(readxl)

#Memanggil data

data.anfak=read_excel("D:/anfak.xlsx")
View(data.anfak)
attach(data.anfak)

#KMO dan Barlet

KMO_Result = KMOS(data.anfak)
KMO_Result
## 
## Kaiser-Meyer-Olkin Statistics
## 
## Call: KMOS(x = data.anfak)
## 
## Measures of Sampling Adequacy (MSA):
##        b1        b2        b3        b4        b5        b6        b7        b8 
## 0.6090633 0.5298420 0.5000334 0.7376992 0.5596219 0.3494707 0.4019810 0.4042883 
##        k1        k2        k3        k4        k5        k6        k7        d1 
## 0.4758281 0.7398433 0.7881882 0.7566132 0.5149618 0.4412071 0.5361436 0.6640157 
##        d2        d3        d4        j1        j2        j3        e1        e2 
## 0.5715105 0.3993513 0.6207602 0.6976066 0.5983190 0.6828668 0.5622430 0.6218804 
##        e3 
## 0.7224612 
## 
## KMO-Criterion: 0.5734293

interpretasi : data dikatakan cukup apabila nilai KMO > 0,5

#Barlett tes

barlettes=bart_spher(data.anfak)
barlettes
##  Bartlett's Test of Sphericity
## 
## Call: bart_spher(x = data.anfak)
## 
##      X2 = 802.73
##      df = 300
## p-value < 2.22e-16

interpretasi : asumsi multivariat normal terpenuhi ketika nilai signifikan(p-value) < 0,000

#matriks

library(corrplot)
## corrplot 0.92 loaded
datamatrix <- cor(data.anfak)
corrplot(datamatrix, method="number")

interpretasi : Berdasarkan hasil plot matriks korelasi yang dibentuk, diperoleh informasi bahwa nilai koefisien korelasi antar variabel tidak sama dengan 0. Hal ini menunjukkan adanya hubungan pada setiap variabelnya sehingga memenuhi asumsi model analisis faktor. Selain itu diketahui korelasi antar variabel dalam lima dimensi memiliki nilai lebih besar dari korelasi variabel lainnya.

#PCA

R<-cov(data.anfak) 
eigen<-eigen(R) 
eigen
## eigen() decomposition
## $values
##  [1] 4.568946621 1.040857829 0.757467796 0.668621880 0.592156578 0.439609141
##  [7] 0.390742491 0.344830341 0.279439001 0.231666347 0.186694736 0.175600028
## [13] 0.158644956 0.143888578 0.125682015 0.069400715 0.055433667 0.044145764
## [19] 0.036167316 0.020389551 0.012049327 0.007739439 0.006368742 0.003881810
## [25] 0.001429164
## 
## $vectors
##              [,1]         [,2]         [,3]        [,4]         [,5]
##  [1,] -0.15029744  0.143601772  0.032382186  0.11727040  0.247577301
##  [2,] -0.19650167  0.031329824  0.026488600  0.08368709 -0.019243910
##  [3,] -0.20739979 -0.081400005 -0.038968376 -0.24238142 -0.258116950
##  [4,] -0.27364922 -0.138387272 -0.088556408 -0.15008876 -0.133379279
##  [5,] -0.26676365  0.245162047 -0.068854755  0.05898531 -0.264184602
##  [6,] -0.15791953  0.466283711 -0.385384034 -0.31249373 -0.080590517
##  [7,] -0.05844289  0.244189428 -0.265025742 -0.03971077  0.420762796
##  [8,] -0.18962491 -0.060155288  0.216798471 -0.40002691 -0.077411213
##  [9,] -0.23324644  0.156182406  0.146528094  0.22207607  0.076433861
## [10,] -0.24236045  0.179558647  0.631979965 -0.06258516  0.172936321
## [11,] -0.20391094 -0.066949973  0.112385776  0.19561281 -0.006852325
## [12,] -0.24031899  0.153410095  0.150049851  0.29270778 -0.364657715
## [13,] -0.21971075 -0.147828899 -0.009446841 -0.23478611  0.326547325
## [14,] -0.14494897 -0.245639804  0.086824107  0.00155885  0.228602427
## [15,] -0.18213420 -0.222147729  0.072776608  0.14406666  0.049526041
## [16,] -0.16997933 -0.182405680 -0.111820033  0.16360621 -0.122604318
## [17,] -0.14077048 -0.240945329 -0.117110312 -0.09379973 -0.105347188
## [18,] -0.18299007 -0.274050081 -0.126927425 -0.21281363  0.262156628
## [19,] -0.17802891 -0.240245647 -0.100855011 -0.20646397 -0.221705160
## [20,] -0.20481561 -0.002618765  0.014933764  0.13691560  0.148702421
## [21,] -0.23473882  0.001717119  0.127281692 -0.13434476 -0.065770995
## [22,] -0.25562089  0.377389391 -0.102678054 -0.08982531  0.071004999
## [23,] -0.12974548 -0.074938057 -0.183748228  0.05529972  0.199511953
## [24,] -0.19789356 -0.145168299 -0.310855274  0.32178636 -0.117880862
## [25,] -0.19548617 -0.048834278 -0.198963445  0.32745949  0.187862316
##               [,6]         [,7]        [,8]         [,9]        [,10]
##  [1,] -0.266990933 -0.091756315  0.13916077 -0.158855308 -0.033764257
##  [2,] -0.282247183  0.092680475  0.36075881  0.162496514  0.063919782
##  [3,] -0.005365523 -0.132165939  0.08239342  0.464124697  0.134542894
##  [4,] -0.069405761  0.347546869  0.12023100  0.241989806  0.028476998
##  [5,] -0.181615691 -0.332349663  0.07259413 -0.244581213 -0.154288156
##  [6,] -0.211962576  0.135314361 -0.07786184 -0.036388702 -0.251022422
##  [7,]  0.285135244  0.248790804  0.49387202 -0.005415957  0.152252997
##  [8,]  0.044899344  0.342960399 -0.07515559 -0.285246547 -0.284189411
##  [9,]  0.381428525  0.261679681  0.04724197  0.157751474  0.005564368
## [10,] -0.300095867 -0.059706573 -0.01113991  0.235374479  0.104014138
## [11,]  0.237873720 -0.062575762 -0.08138284 -0.243089840 -0.115865185
## [12,]  0.052034900  0.135964257  0.14323650 -0.281930366 -0.061336835
## [13,]  0.188883377 -0.116967384 -0.14282184  0.092484612 -0.504059369
## [14,] -0.154932052  0.198707028 -0.02433121 -0.156734005  0.050458935
## [15,] -0.004467196  0.155596240 -0.04561749 -0.257181808  0.189170978
## [16,] -0.018616048 -0.184208933  0.20215986  0.155392220 -0.090301510
## [17,]  0.220794509 -0.139441870  0.08443972 -0.069247231  0.147998720
## [18,] -0.114428068 -0.302697951  0.10629648 -0.201578491  0.076294254
## [19,] -0.045379399  0.006649529  0.09985308 -0.158965328  0.277769945
## [20,]  0.162051935 -0.362518029  0.23987057  0.052886625 -0.197163393
## [21,]  0.264298258 -0.033625853 -0.24986881  0.149886859  0.109897854
## [22,]  0.221602266 -0.205258402 -0.34550653 -0.091283559  0.473148997
## [23,] -0.271544767  0.132531640 -0.17554404 -0.123803865  0.224984632
## [24,]  0.014632479  0.159180873 -0.17508204  0.116639859 -0.151767184
## [25,] -0.212169457  0.044708462 -0.38170842  0.237383108 -0.056108280
##              [,11]         [,12]       [,13]       [,14]        [,15]
##  [1,] -0.213312397  0.1626683977 -0.18881520  0.06941761  0.108173679
##  [2,] -0.190141642  0.3596076696 -0.02757428  0.36892397  0.090219137
##  [3,]  0.247398498  0.0688912783 -0.04793570  0.25059386  0.225640014
##  [4,] -0.295524848  0.0256002442  0.16495679 -0.20253788 -0.319566682
##  [5,] -0.040138287 -0.1559984516  0.30941059  0.08576978  0.278816972
##  [6,]  0.188104502  0.0411378388 -0.36990952 -0.31447048 -0.021620631
##  [7,]  0.374159520 -0.1579841675  0.29046395  0.10205190 -0.007380118
##  [8,]  0.001425119 -0.1031901639  0.01413791  0.38336060  0.183581919
##  [9,] -0.439961962 -0.1381075984 -0.26517878 -0.12520189  0.173443597
## [10,]  0.288115652 -0.0687482486  0.09392417 -0.33995607 -0.118645968
## [11,]  0.255818764  0.0620443261 -0.05813628  0.05584954 -0.168840156
## [12,]  0.068645687 -0.1212933397  0.06640465  0.03273671 -0.368180348
## [13,] -0.053963930  0.2495515747  0.08093109  0.02597068 -0.217105210
## [14,]  0.091377158  0.0363576931 -0.15870620  0.01973914  0.105405928
## [15,]  0.255428552  0.3835693542 -0.07843583 -0.10576857  0.193101885
## [16,]  0.087219734 -0.2099673553 -0.37509445  0.19351525 -0.356829209
## [17,]  0.202955601  0.0276211563 -0.36532236 -0.11576573  0.050605184
## [18,] -0.219312055 -0.1843552303  0.18566680 -0.05650251 -0.174530804
## [19,] -0.052198647 -0.0003144576  0.14766493 -0.25104983 -0.012734203
## [20,] -0.053041869 -0.0319384449 -0.06579375 -0.23951413  0.292682754
## [21,] -0.009438330 -0.3246181127  0.06851031  0.05673855  0.224695647
## [22,] -0.154046700  0.3145429725  0.01614105  0.17470450 -0.215619029
## [23,] -0.089216208 -0.4296812676 -0.19605646  0.01275828  0.113354643
## [24,]  0.041913242  0.1813171278  0.32338623 -0.25995712  0.217168938
## [25,]  0.183311498 -0.1497586096  0.09689673  0.26081586 -0.090758794
##              [,16]        [,17]       [,18]        [,19]        [,20]
##  [1,]  0.037197557  0.111660210 -0.34692320 -0.058779156 -0.001598013
##  [2,]  0.241363353  0.092911239 -0.11012939 -0.133234815  0.076207634
##  [3,]  0.080686181  0.039781180  0.34061227  0.113112821  0.174034060
##  [4,] -0.080110337 -0.089237579 -0.13765587  0.449165720 -0.110393470
##  [5,] -0.215806061 -0.484244233 -0.04103469  0.064748382  0.073229631
##  [6,]  0.238358958 -0.016537547  0.01756629 -0.041931178 -0.117037840
##  [7,] -0.064661461 -0.030625622 -0.06148993 -0.056184382  0.017985471
##  [8,] -0.323280288  0.227108798 -0.03801028 -0.003767174 -0.175562734
##  [9,] -0.063312972 -0.296388063  0.09348096 -0.095648859  0.033420815
## [10,] -0.191166251  0.005422175 -0.04679568 -0.154362891  0.047387159
## [11,]  0.185734970  0.115058548 -0.15835325  0.093588765 -0.108814906
## [12,]  0.250387312  0.146169201  0.29570336  0.057098476  0.257309049
## [13,] -0.016357499 -0.061914807  0.01830582 -0.077878434  0.433261403
## [14,]  0.088314981 -0.280486768  0.51919550 -0.115713942 -0.344429617
## [15,]  0.075449408 -0.152977324 -0.12492772  0.180375897  0.109129846
## [16,] -0.267600203  0.001266530 -0.08775585 -0.359426523 -0.207569881
## [17,] -0.182336162 -0.230416803 -0.21505932  0.087524154  0.216719256
## [18,]  0.302333010 -0.117627305  0.16474991 -0.098677041 -0.064997052
## [19,] -0.082907264  0.188874136 -0.18129485 -0.162216081 -0.134845146
## [20,] -0.058460237  0.450332204  0.17966274  0.383903939 -0.249043985
## [21,]  0.520317012  0.033365483 -0.32566871 -0.182054758 -0.078726780
## [22,] -0.226937361  0.109689592  0.16654908 -0.035451951 -0.119045287
## [23,] -0.124476429  0.298028566  0.08539090  0.073559480  0.510557133
## [24,] -0.139880926  0.187291535  0.08304315 -0.454323545  0.014285286
## [25,] -0.002314827 -0.106006400 -0.14884170  0.302718925 -0.214746043
##             [,21]       [,22]        [,23]        [,24]        [,25]
##  [1,]  0.43713496  0.03453827  0.312469796  0.430722549  0.134204420
##  [2,] -0.32236960 -0.18368480 -0.146133293 -0.243790158 -0.268208240
##  [3,]  0.23698380  0.05299891  0.300163938  0.003826823  0.259679062
##  [4,] -0.16564122  0.22139180  0.150282246  0.225621201 -0.053117179
##  [5,] -0.06036838  0.18659985  0.031586378 -0.070551064 -0.121919367
##  [6,] -0.05888357 -0.03712225 -0.051618105 -0.116988331  0.063395206
##  [7,]  0.04622149  0.04730845  0.002833319  0.032545985 -0.012864098
##  [8,] -0.08722803 -0.18374024 -0.054963262  0.050313295  0.182163621
##  [9,]  0.12163246 -0.14143819  0.061187792 -0.292614762  0.199291118
## [10,] -0.10417539 -0.11411110  0.008351170 -0.020995848  0.020090579
## [11,] -0.20072780  0.07649226  0.634185621 -0.334869295 -0.071933262
## [12,]  0.20988324 -0.15441432 -0.192278192  0.214962988 -0.009029851
## [13,]  0.19704215  0.13893331 -0.135105599 -0.084917168 -0.185162216
## [14,]  0.10094616  0.13620115  0.072368722  0.156191000 -0.418172164
## [15,] -0.05673622  0.30763095 -0.354064276 -0.065559219  0.420803262
## [16,] -0.06740517  0.33250100 -0.174360593  0.011069743  0.147339865
## [17,] -0.12507277 -0.50035715  0.006023902  0.283049116 -0.248490579
## [18,] -0.19731733 -0.28136314  0.038753685 -0.013488064  0.427167669
## [19,]  0.51294020 -0.04069854 -0.063719787 -0.426767495 -0.188548179
## [20,] -0.05963478  0.01652287 -0.219103493  0.009624434 -0.095145176
## [21,] -0.05266325  0.20217522 -0.176382250  0.239536359 -0.158457579
## [22,] -0.08619279  0.03390139 -0.053222456  0.078619949 -0.039152041
## [23,] -0.15520894  0.18890267  0.079677112 -0.112608735 -0.111067627
## [24,] -0.16426409 -0.11181225  0.137207196  0.214930010  0.078960777
## [25,]  0.23505653 -0.33707207 -0.163344056 -0.128360307  0.014739566

#ctrl+alt+I #analisi faktor

bimbel<-factanal(factors=5,covmat=R) 
bimbel
## 
## Call:
## factanal(factors = 5, covmat = R)
## 
## Uniquenesses:
##    b1    b2    b3    b4    b5    b6    b7    b8    k1    k2    k3    k4    k5 
## 0.331 0.392 0.346 0.229 0.284 0.537 0.901 0.376 0.440 0.377 0.005 0.317 0.514 
##    k6    k7    d1    d2    d3    d4    j1    j2    j3    e1    e2    e3 
## 0.005 0.186 0.409 0.242 0.427 0.115 0.437 0.333 0.411 0.362 0.258 0.179 
## 
## Loadings:
##    Factor1 Factor2 Factor3 Factor4 Factor5
## b1          0.261   0.610   0.400   0.261 
## b2  0.325   0.190   0.548   0.329   0.242 
## b3  0.704   0.185   0.329                 
## b4  0.689   0.177   0.362   0.263   0.256 
## b5  0.344   0.423   0.629           0.153 
## b6  0.195           0.644                 
## b7                  0.289                 
## b8  0.471   0.284   0.211   0.487  -0.200 
## k1  0.122   0.513   0.442   0.253   0.149 
## k2          0.357   0.475   0.498  -0.131 
## k3  0.242   0.888           0.264   0.269 
## k4  0.236   0.680   0.381           0.116 
## k5  0.362   0.369   0.185   0.388   0.184 
## k6  0.309   0.149           0.855   0.377 
## k7  0.388   0.475           0.530   0.390 
## d1  0.474   0.382   0.106           0.453 
## d2  0.733   0.362  -0.174   0.111   0.218 
## d3  0.557                   0.413   0.276 
## d4  0.898   0.151           0.174   0.151 
## j1  0.263   0.542   0.337   0.164   0.245 
## j2  0.473   0.526   0.347   0.208         
## j3  0.212   0.426   0.596                 
## e1  0.246           0.276   0.375   0.598 
## e2  0.376   0.305   0.155           0.695 
## e3          0.278   0.329   0.190   0.772 
## 
##                Factor1 Factor2 Factor3 Factor4 Factor5
## SS loadings      4.395   3.689   3.313   2.607   2.583
## Proportion Var   0.176   0.148   0.133   0.104   0.103
## Cumulative Var   0.176   0.323   0.456   0.560   0.663
## 
## The degrees of freedom for the model is 185 and the fit was 14.7626