Library:
> # install.packages("knitr")
> # install.packages("rmarkdown")
> # install.packages("prettydoc")
> # install.packages("equatiomatic")
> # install.packages("candisc")
> # install.packages("readxl")
> # install.packages("dplyr")
> # install.packages("CCA")Pembangunan sosial dan ekonomi suatu negara merupakan dua aspek yang saling memengaruhi. Indikator ekonomi seperti GDP per capita, ekspor, dan impor mencerminkan kapasitas dan aktivitas ekonomi, sedangkan indikator sosial seperti life expectancy, child mortality, dan health expenditure menunjukkan tingkat kesehatan serta kesejahteraan penduduk. Memahami keterkaitan keduanya penting karena kondisi ekonomi dapat berdampak langsung pada kualitas hidup masyarakat, dan sebaliknya kualitas sosial-kesehatan juga dapat memengaruhi kinerja ekonomi.
Hubungan antara kedua kelompok indikator bersifat kompleks dan tidak dapat dijelaskan hanya dengan satu variabel. Oleh karena itu, diperlukan metode analisis yang mampu mengukur hubungan dua kelompok variabel secara simultan. Canonical Correlation Analysis (CCA) merupakan teknik multivariat yang tepat untuk tujuan tersebut karena mampu mengidentifikasi kombinasi linier dari masing-masing kelompok variabel dan mengukur seberapa kuat keterkaitannya.
Penelitian ini menggunakan CCA untuk menganalisis hubungan antara indikator ekonomi (GDP per capita, ekspor, impor) dan indikator sosial/kesejahteraan (life expectancy, child mortality, health expenditure). Melalui analisis ini diharapkan diperoleh gambaran yang lebih komprehensif mengenai keterhubungan antara kondisi ekonomi dan kesejahteraan suatu negara.
Bagaimana hubungan antara kelompok variabel ekonomi (GDP per capita, ekspor, impor) dengan kelompok variabel sosial/kesejahteraan (life expectancy, child mortality, health expenditure)?
Seberapa besar korelasi kanonik yang terbentuk antara kedua kelompok variabel tersebut?
Variabel mana saja dalam masing-masing kelompok yang memberikan kontribusi paling besar terhadap fungsi kanonik yang terbentuk?
Menganalisis hubungan antara indikator ekonomi dan indikator sosial/kesejahteraan menggunakan Canonical Correlation Analysis.
Mengukur besarnya korelasi kanonik antara kelompok variabel ekonomi dan kelompok variabel sosial.
Mengidentifikasi variabel yang paling berpengaruh dalam pembentukan fungsi kanonik pada masing-masing kelompok.
Data ini diambil dari kaggle yang berisi tentang data sosial ekonomi di 166 negara di dunia, berikut cuplikan datanya:
> library(readxl)
> data_k1 <- read_excel("/Users/ramaaa./Documents/Kuliah/Semester 5/Analisis Multivariat/Prak/Data Sosial Ekonomi Negara.xlsx", sheet <- "X")
> head(data_k1)
# A tibble: 6 Γ 3
exports imports gdpp
<dbl> <dbl> <dbl>
1 10 44.9 553
2 28 48.6 4090
3 38.4 31.4 4460
4 62.3 42.9 3530
5 45.5 58.9 12200
6 18.9 16 10300
> data_k2 <- read_excel("/Users/ramaaa./Documents/Kuliah/Semester 5/Analisis Multivariat/Prak/Data Sosial Ekonomi Negara.xlsx", sheet <- "Y")
> head(data_k2)
# A tibble: 6 Γ 3
life_expec child_mort health
<dbl> <dbl> <dbl>
1 56.2 90.2 7.58
2 76.3 16.6 6.55
3 76.5 27.3 4.17
4 60.1 119 2.85
5 76.8 10.3 6.03
6 75.8 14.5 8.1 Kelompok 1: Variabel Ekonomi
π1: GDP per Capita
π2: Eksports
π3: Imports
Kelompok 2: Variabel Sosial
π1: Life Expectancy
π2:Β Child Morality
π3: Health Expenditure
> # Library
> library(knitr)
> library(rmarkdown)
> library(prettydoc)
Error in library(prettydoc): there is no package called 'prettydoc'
> library(equatiomatic)
Error in library(equatiomatic): there is no package called 'equatiomatic'
> library(candisc)
> library(readxl)
> library(dplyr)
> library(CCA)> data_k1 <- read_excel("/Users/ramaaa./Documents/Kuliah/Semester 5/Analisis Multivariat/Prak/Data Sosial Ekonomi Negara.xlsx", sheet <- "X")
> data_k1
# A tibble: 166 Γ 3
exports imports gdpp
<dbl> <dbl> <dbl>
1 10 44.9 553
2 28 48.6 4090
3 38.4 31.4 4460
4 62.3 42.9 3530
5 45.5 58.9 12200
6 18.9 16 10300
7 20.8 45.3 3220
8 19.8 20.9 51900
9 51.3 47.8 46900
10 54.3 20.7 5840
# βΉ 156 more rows
> data_k2 <- read_excel("/Users/ramaaa./Documents/Kuliah/Semester 5/Analisis Multivariat/Prak/Data Sosial Ekonomi Negara.xlsx", sheet <- "Y")
> data_k2
# A tibble: 166 Γ 3
life_expec child_mort health
<dbl> <dbl> <dbl>
1 56.2 90.2 7.58
2 76.3 16.6 6.55
3 76.5 27.3 4.17
4 60.1 119 2.85
5 76.8 10.3 6.03
6 75.8 14.5 8.1
7 73.3 18.1 4.4
8 82 4.8 8.73
9 80.5 4.3 11
10 69.1 39.2 5.88
# βΉ 156 more rowsMembaca data dari file excel dan menyimpan set variabel pertama (misalnya, variabel bebas) ke dalam objek bernama data_k1. Sheet yang digunakan adalah βXβ dan membaca data dari file Excel yang sama dan menyimpan set variabel kedua (misalnya, variabel terikat) ke dalam objek bernama data_k2. Sheet yang digunakan adalah βYβ.
> cc=cancor(data_k1, data_k2)
> cc
Canonical correlation analysis of:
3 X variables: exports, imports, gdpp
with 3 Y variables: life_expec, child_mort, health
CanR CanRSQ Eigen percent cum scree
1 0.6629 0.43948 0.78406 61.150 61.15 ******************************
2 0.5626 0.31650 0.46305 36.114 97.26 ******************
3 0.1841 0.03389 0.03508 2.736 100.00 *
Test of H0: The canonical correlations in the
current row and all that follow are zero
CanR LR test stat approx F numDF denDF Pr(> F)
1 0.66293 0.37013 21.8313 9 389.55 < 2.2e-16 ***
2 0.56258 0.66034 18.5634 4 322.00 9.658e-14 ***
3 0.18410 0.96611 5.6833 1 162.00 0.01828 *
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Menjalankan fungsi cancor() (Canonical Correlation) yang merupakan fungsi bawaan R untuk menghitung koefisien korelasi kanonikal. Hasilnya disimpan dalam objek cc, lalu memanggilnya di akhir.
> cc1=cc(data_k1, data_k2)
> cc1
$cor
[1] 0.6629332 0.5625807 0.1841002
$names
$names$Xnames
[1] "exports" "imports" "gdpp"
$names$Ynames
[1] "life_expec" "child_mort" "health"
$names$ind.names
[1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "10" "11" "12"
[13] "13" "14" "15" "16" "17" "18" "19" "20" "21" "22" "23" "24"
[25] "25" "26" "27" "28" "29" "30" "31" "32" "33" "34" "35" "36"
[37] "37" "38" "39" "40" "41" "42" "43" "44" "45" "46" "47" "48"
[49] "49" "50" "51" "52" "53" "54" "55" "56" "57" "58" "59" "60"
[61] "61" "62" "63" "64" "65" "66" "67" "68" "69" "70" "71" "72"
[73] "73" "74" "75" "76" "77" "78" "79" "80" "81" "82" "83" "84"
[85] "85" "86" "87" "88" "89" "90" "91" "92" "93" "94" "95" "96"
[97] "97" "98" "99" "100" "101" "102" "103" "104" "105" "106" "107" "108"
[109] "109" "110" "111" "112" "113" "114" "115" "116" "117" "118" "119" "120"
[121] "121" "122" "123" "124" "125" "126" "127" "128" "129" "130" "131" "132"
[133] "133" "134" "135" "136" "137" "138" "139" "140" "141" "142" "143" "144"
[145] "145" "146" "147" "148" "149" "150" "151" "152" "153" "154" "155" "156"
[157] "157" "158" "159" "160" "161" "162" "163" "164" "165" "166"
$xcoef
[,1] [,2] [,3]
exports 1.967954e-02 5.841000e-02 -8.407546e-03
imports -1.465704e-02 -5.253456e-02 -3.435680e-02
gdpp -6.179183e-05 -1.189558e-05 6.660926e-06
$ycoef
[,1] [,2] [,3]
life_expec -0.11496141 0.109839780 0.189550758
child_mort -0.00962192 0.006231512 0.052683859
health -0.21805735 -0.300647296 0.006854886
$scores
$scores$xscores
[,1] [,2] [,3]
[1,] 0.189075347 -1.560443350 0.2503137383
[2,] 0.270518367 -0.745515842 -0.0045825446
[3,] 0.704423647 0.761141174 0.5013804184
[4,] 1.063675215 1.564055702 -0.1008577589
[5,] -0.037188878 -0.360919887 -0.4515694952
[6,] 0.185526599 0.361708130 1.2333220476
[7,] 0.230952773 -0.982354664 0.1635342111
[8,] -2.439121598 -0.337998264 1.3345014917
[9,] -1.904531088 0.148215116 0.1121613252
[10,] 1.088885927 2.235564050 0.7445102350
[11,] -0.997348119 -0.363649792 0.2641756856
[12,] 0.027145841 1.360084179 -0.3218783578
[13,] 0.633062802 0.001126312 0.9948759517
[14,] -0.240573342 -0.220730622 -0.0253733723
[15,] 0.378096643 -0.237098672 -0.7346699949
[16,] -1.650369237 0.230865541 -1.0397182293
[17,] 0.718944983 0.547934758 -0.5626006989
[18,] 0.560844886 -0.352307841 0.4002024238
[19,] 0.349973653 -1.036863956 -0.8984995388
[20,] 0.870264713 0.801840001 0.3616854814
[21,] 0.232267840 -0.794247842 -0.1081750422
[22,] 0.398295693 -0.003047128 -0.2134499230
[23,] 0.030101247 0.092685233 1.4525573062
[24,] -0.580695864 2.266789063 0.5797976565
[25,] 0.472985716 0.287321302 -0.3240824284
[26,] 0.593020366 -0.219554330 0.6987698409
[27,] 0.271263515 -1.320248805 0.4530828105
[28,] 0.828552966 0.245661526 -0.6205162850
[29,] 0.644750289 0.083522270 0.7677706542
[30,] -2.126074656 -0.271854163 0.8793334974
[31,] 0.217736978 -1.155166425 -0.5028032493
[32,] 0.500799707 -0.487396688 0.8666324930
[33,] 0.715750553 0.074400989 0.0753823730
[34,] 0.170590588 0.625108945 0.5669195994
[35,] 0.589103910 0.515494692 0.9061176304
[36,] 0.350362236 0.140093018 1.1697257005
[37,] 0.203977497 -1.540582767 -0.0365227688
[38,] 0.745753472 0.011800414 -0.1740966365
[39,] 1.388231319 2.285293481 -0.7032221446
[40,] 0.318223236 0.223795300 0.4463270560
[41,] 0.970300888 0.887123649 -0.0316189265
[42,] 0.031879691 0.254895616 0.3381306932
[43,] -1.073503297 -0.234102264 -0.3190922160
[44,] -0.162004335 0.535940521 -0.7107283387
[45,] -2.544604534 0.190091328 0.3371221911
[46,] 0.306432542 -0.267488128 0.5746952980
[47,] 0.470773045 0.092922487 0.5566350426
[48,] 0.553190049 0.036621795 0.7976727595
[49,] 0.346155959 -0.691612595 0.0660523304
[50,] 0.453116707 1.934714837 -0.7577550692
[51,] 0.407524120 -0.729168459 1.0357509345
[52,] 0.253386236 0.824628118 -1.0211432470
[53,] 0.659904504 0.196557548 -0.7837172177
[54,] -1.956805872 -0.033064614 0.5707444437
[55,] -1.708647727 -0.172957019 0.9530112642
[56,] 1.002364799 2.494104122 0.7971501075
[57,] 0.492342390 -0.638916366 0.2099345010
[58,] 0.416540390 -0.543848964 -0.2152607607
[59,] -1.609678336 0.245312304 0.5214762400
[60,] 0.511392977 -0.482987830 0.0570521114
[61,] -0.992701739 -0.421104445 0.8119443685
[62,] -0.023607151 -1.061376080 0.0319629103
[63,] 0.485362623 -0.212854376 0.4281098878
[64,] 0.607616802 -0.286541654 0.1386798919
[65,] 0.428049104 -0.764577775 0.5423377230
[66,] 0.348861507 -0.968535412 -1.2561953949
[67,] -0.003567692 -2.292351171 -0.4737847880
[68,] 0.363602046 0.824048958 -1.3554482097
[69,] -1.488288215 0.566759515 0.2158064306
[70,] 0.648684729 0.101156992 0.7612383931
[71,] 0.642274391 0.426430190 0.9201457389
[72,] 0.476885379 0.549191979 1.0451557424
[73,] 0.682057520 0.677232051 0.4004759585
[74,] -1.565551308 1.113512830 -1.6401271753
[75,] -1.430342858 -0.162033144 0.9654120083
[76,] 0.284346641 -0.612315785 -0.0627542971
[77,] -1.969327468 -0.146836729 1.5763714732
[78,] 0.396344210 -0.626620570 -0.8788653632
[79,] 0.555690192 1.123882400 0.5348587159
[80,] 0.539689139 -0.346740619 0.5513424184
[81,] -0.316877359 -3.217545966 -0.9736777564
[82,] -0.827382299 2.061753276 0.5245415917
[83,] 0.448159485 -1.067748807 -1.3615921763
[84,] 0.588172970 -0.314964064 -0.1104978773
[85,] 0.235492759 0.328379459 -0.3959503812
[86,] -0.040749863 -0.956060592 -0.4369276265
[87,] -0.092731357 -2.797717476 -1.9201746174
[88,] -0.317016460 -3.532122262 -1.4665194985
[89,] 0.610787314 1.696891243 -0.0440330848
[90,] 0.243171040 0.361940442 -0.9045325076
[91,] -4.440969984 1.733643996 -3.7772625572
[92,] 0.335688808 -0.560709118 -0.4271837408
[93,] 0.520767714 -0.582812290 0.1885459285
[94,] 0.593352284 -0.286331585 0.4856389851
[95,] 0.793602503 1.458819206 -1.2362078478
[96,] 0.814392069 1.233233997 -0.9787416320
[97,] 0.575034710 -0.299800496 0.4804261965
[98,] 0.134530553 0.816248336 -4.5634298252
[99,] 0.711143741 -0.047165994 -0.6475795584
[100,] 0.286142002 -0.151385484 -0.6408458285
[101,] -0.216923574 -2.695848905 -1.0881017350
[102,] 0.204691793 -1.632843930 -1.1424011590
[103,] 0.608784070 -0.061649086 -0.4496854455
[104,] 0.080929198 -0.991372619 -0.5474294930
[105,] 0.513109558 -0.191011893 0.1441110548
[106,] 0.601411477 -0.371329233 0.0239950945
[107,] 0.624680545 0.211988291 1.8767263345
[108,] 0.414852165 -0.237751078 -0.5794421796
[109,] 0.302984861 -1.138895751 0.5461374548
[110,] -1.938837953 0.486811193 -0.5820651180
[111,] -1.211939966 0.118810934 0.8810601397
[112,] 0.380273546 -1.066047874 0.0020776387
[113,] 0.783436743 0.756791523 1.0783266530
[114,] -4.377219023 -0.001953133 1.1452069260
[115,] 0.181045393 1.664365178 0.0340059477
[116,] 0.601615533 -0.022170310 1.1002295103
[117,] -0.999710903 0.172794910 0.6525474973
[118,] 0.416661489 0.105218000 -1.3480835689
[119,] 0.814469551 0.695275183 -0.3377901544
[120,] 0.572610537 0.534596261 0.8553421813
[121,] 0.701335682 0.305402175 0.3374722841
[122,] 0.078063056 0.201488416 0.1736898075
[123,] -0.665519373 -0.265147413 0.4868668946
[124,] -2.782216186 1.773197940 1.0001071126
[125,] 0.248865019 -0.011238881 0.3210155845
[126,] 0.288758274 0.690646678 0.9741690294
[127,] 0.446206346 -0.660977416 0.7454815241
[128,] 0.267723932 -0.904216173 -0.1735401775
[129,] -0.015607553 1.154747514 0.4510931740
[130,] 0.522101949 -0.453792693 0.2860599977
[131,] 0.295642831 -0.438234810 -0.0129373407
[132,] 0.280181155 -0.102509711 -2.5538979875
[133,] 0.484845352 -0.615064037 0.5494273256
[134,] -0.809363427 2.207490028 -5.4758668064
[135,] 0.020038994 0.392864502 -1.3305572985
[136,] -0.417910162 0.393819436 -0.6724561750
[137,] 0.384890402 -1.180701720 -1.3223454418
[138,] 0.395939297 0.365315853 0.7399853704
[139,] -0.386033469 0.416301753 0.0179155625
[140,] -1.103437825 -0.062828870 0.9426617383
[141,] 0.503827134 -0.075680191 0.8064930234
[142,] -0.007948459 -1.281767109 -0.2731126321
[143,] 0.728685770 0.450313668 1.1266184838
[144,] 0.642025307 1.171301280 0.1679143979
[145,] -2.222149342 0.161462448 0.4336098841
[146,] -3.446848403 0.271574549 0.0009307686
[147,] 0.073272229 -1.996158443 -0.2603390799
[148,] 0.582661550 -0.224002791 0.7209979500
[149,] 0.788191013 0.850571007 -0.7408316759
[150,] 0.097930504 -1.153946280 0.9236896632
[151,] 0.605666766 -0.447116588 -0.4300513958
[152,] -0.174602227 -2.264942560 -0.2789962434
[153,] 0.612016349 0.216132886 -0.4236098257
[154,] 0.051087341 -0.054513382 0.8969855314
[155,] 1.259506988 2.286915457 -0.2674728377
[156,] 0.565114526 -0.289918689 0.7509157031
[157,] 0.678961900 0.252101844 -0.2585189068
[158,] -0.881249493 1.001750554 -0.7319003058
[159,] -1.615624245 -0.212803835 0.8371537738
[160,] -2.293727912 -0.460671513 1.5486237540
[161,] 0.094512145 0.281084388 0.8588097999
[162,] 0.805394964 0.558782759 0.6368300349
[163,] 0.645670871 0.138841553 -0.3092860082
[164,] 0.153265083 0.800323003 1.1189536937
[165,] 0.845037222 0.197501958 -1.4787067263
[166,] 0.689788659 0.150364566 0.4479514989
$scores$yscores
[,1] [,2] [,3]
[1,] 0.99548880 -1.4919304015 0.012978600
[2,] -0.38246318 0.5668766240 -0.061643720
[3,] 0.01056649 1.3710623190 0.523669094
[4,] 1.30143928 0.5379739859 2.237098087
[5,] -0.26593597 0.7388745837 -0.302341194
[6,] -0.64276534 0.0328672512 -0.256430130
[7,] 0.41681148 0.8930962377 -0.566008212
[8,] -1.39956960 0.4640204261 0.412069717
[9,] -1.71730672 -0.3863243605 0.116962242
[10,] 0.37390201 0.1182960624 -0.240346738
[11,] -0.36031513 -0.1280384346 -0.673849874
[12,] 0.07353122 0.9590953232 -0.550810541
[13,] 0.64092395 1.0341768135 0.527267078
[14,] -0.71499658 0.1689377480 -0.102530740
[15,] 0.60758637 0.1322606006 -1.771227624
[16,] -1.59633319 -0.3498037594 0.030667169
[17,] 0.45405694 0.4482448777 -0.883792043
[18,] 0.91040855 0.2990403983 2.146432112
[19,] 0.14362006 0.6740658540 0.508037721
[20,] 0.24207592 0.7516818863 0.616261633
[21,] -1.33877222 -0.8065943449 -0.446712041
[22,] 1.09776862 -1.8444686448 -1.797671687
[23,] -0.70825545 -0.3834384233 -0.274248943
[24,] 0.39325418 1.7321376930 -0.256806283
[25,] -0.12052701 0.1709112498 -0.819938360
[26,] 0.73497704 -0.8918860448 1.688700350
[27,] -0.08625841 -2.5145857202 0.503986502
[28,] 0.71236374 -0.1186899569 -0.536413923
[29,] 1.23200158 -0.5235998606 1.142462655
[30,] -1.88720155 -0.3805457601 0.339148332
[31,] 0.49555426 0.9507697740 -0.277229417
[32,] 2.21489065 -0.9987933319 1.437020327
[33,] 1.05068448 -0.1693598144 3.199431199
[34,] -0.93580284 0.4012863780 0.062561306
[35,] 0.14435583 0.8194986352 -0.441440715
[36,] -0.63998281 0.2776504380 0.069808156
[37,] 0.56904302 0.4840396369 1.725208737
[38,] 0.52583450 -1.2875792926 1.620900264
[39,] 1.88216102 0.3448220687 -0.611590728
[40,] -1.74077417 -0.3304776897 0.408156447
[41,] 1.28102749 -0.6658551455 1.112128804
[42,] -0.53950927 0.1339236161 -0.638140144
[43,] -0.54476604 1.0556656103 -0.068126993
[44,] -0.68342381 0.2165675017 -0.520492752
[45,] -1.68764386 -0.6176693609 -0.080383333
[46,] -0.28634003 0.5902835147 0.551630570
[47,] -0.83950067 0.2098029693 0.472340264
[48,] 0.57616740 0.5759231863 -0.515445615
[49,] -0.23306572 0.2331980124 -0.339209596
[50,] 0.93101202 0.0859386241 1.978441286
[51,] 1.77281042 0.3732701713 -0.822153339
[52,] -0.11815970 0.6148599918 -0.759548184
[53,] 1.17846487 -0.0865306865 -1.763157877
[54,] -1.20029994 0.1669817403 -0.060354671
[55,] -2.01606142 -0.5586742759 0.288458937
[56,] 1.36990223 0.3055020285 -0.141121522
[57,] 0.43373308 0.0361109734 1.241274712
[58,] -0.75323966 -0.8854836560 -0.706004914
[59,] -1.80119437 -0.6112718010 0.039986485
[60,] 0.96947544 -0.2199525368 0.317505802
[61,] -1.54932166 -0.1893478363 0.072135202
[62,] 0.36204729 0.2126613354 -1.119495102
[63,] -0.05396543 0.0446359567 -0.016884495
[64,] 1.18551815 -0.3803510439 1.326461067
[65,] 0.63485118 -1.6861198021 1.159430487
[66,] 0.91218685 -0.1367739159 -1.010451086
[67,] 2.77869506 -3.2035633252 1.646371153
[68,] -0.24362502 0.0686061054 -0.955937180
[69,] -1.52449981 0.2488774123 0.300758001
[70,] 0.91774543 0.4720828819 0.230015259
[71,] 1.05174976 1.1525186237 -0.421956379
[72,] 0.00564266 0.6716050328 -0.267100808
[73,] 0.06277401 -0.8653696541 -0.704323193
[74,] -1.31016458 0.1462401154 0.080331436
[75,] -1.53182953 0.1855654463 0.318541312
[76,] 0.16646199 0.9236065382 -0.297826647
[77,] -1.64186725 0.3134298866 0.484625863
[78,] -0.69318657 0.0920340664 0.090872047
[79,] 0.97139418 0.4091396589 -1.316435845
[80,] 1.12325956 -0.0906383366 -0.230533778
[81,] -0.06840811 -2.2874259046 -0.557348935
[82,] 0.30970210 1.9179668364 -0.033934817
[83,] 0.46983209 -0.0976245068 -0.857785775
[84,] 0.90866814 0.2074489319 0.836918059
[85,] 0.04173878 0.1214678769 -1.130932972
[86,] -0.82887756 0.7677466276 0.273165967
[87,] 1.25164437 -3.5564553849 -1.301037894
[88,] -0.44487600 -2.2610073623 0.866424236
[89,] 0.22274223 1.3476369473 -0.117856419
[90,] -0.03190075 0.0136252585 -1.199072697
[91,] -1.09051772 0.6632909606 0.167435777
[92,] -0.17614700 0.1132602180 -0.820548752
[93,] 1.56687859 -0.0156835465 -0.616353084
[94,] 1.56485938 -1.5329234428 -0.565609930
[95,] 0.37918195 0.9643490267 -0.875991214
[96,] -0.48571430 0.7875755368 0.061004297
[97,] 0.73275940 -0.0561414104 3.086278004
[98,] -1.20593446 0.3138076075 0.194652755
[99,] 0.23791584 0.8240657680 2.645181496
[100,] 0.08625153 0.4037268563 -0.699405282
[101,] -1.02267548 -2.7845114130 -0.842504802
[102,] -0.75248639 -1.7026605882 -1.245765745
[103,] 0.92928250 -0.1495872927 -1.483218642
[104,] -0.85789133 -0.2528652898 -0.541441954
[105,] 0.07119575 0.7705116378 0.288717279
[106,] 1.60380239 -0.8988236099 0.243481909
[107,] 1.24844513 1.1982295903 0.624517161
[108,] 1.22309696 -1.2009147947 -1.339371470
[109,] 0.52819630 0.2684378263 0.014628177
[110,] -1.93847500 -0.6336926682 0.171578564
[111,] -1.58532131 -0.0599660102 0.286712480
[112,] 0.90868894 -0.2743869338 2.217252325
[113,] 0.66552627 -0.0169804693 2.907658689
[114,] -1.43275614 0.1187247558 0.143365949
[115,] 0.51193331 1.6508210379 -0.383616252
[116,] 1.10420687 1.1369339176 1.801110544
[117,] -1.08880528 0.7275822811 0.280262115
[118,] -0.92272215 0.2849506719 0.396627454
[119,] -0.05343348 0.5764056074 -0.088187768
[120,] -0.28145824 1.2076283897 0.426491089
[121,] 0.95062837 0.7442914098 -0.659454578
[122,] -0.47890302 0.2272335606 -0.613854680
[123,] -1.63298496 -0.4657048111 -0.036796832
[124,] 0.35637875 2.2960726114 0.112029216
[125,] 0.17702391 0.5411403633 -0.829812613
[126,] 0.81781182 0.1878377343 -1.765244258
[127,] -0.35097146 -1.6129245662 0.223830586
[128,] 0.16466577 0.0780299414 -0.850862875
[129,] 0.25695986 1.1089234157 -0.352012147
[130,] 0.74261284 -0.2037546858 0.245510830
[131,] -0.95144846 -0.8224427174 -0.812688353
[132,] 0.65897380 1.1816709178 -0.748838302
[133,] -0.74184412 -2.8483516901 3.500690029
[134,] -0.42066517 1.9625328486 0.406689722
[135,] -0.68657209 -0.2542676547 -0.703694429
[136,] -1.24505000 -0.0249896032 -0.141440030
[137,] 0.74920664 -1.5664163678 -2.209510640
[138,] 1.26855756 -2.3369564834 -2.260806052
[139,] -0.78190434 0.7921279183 0.002705779
[140,] -1.55507800 0.2032806270 0.345983240
[141,] 0.67510892 1.4098676161 -0.731029140
[142,] 0.57196488 0.7015252318 -0.750786626
[143,] 0.23902673 -0.0878584412 1.207572005
[144,] 0.13483450 -0.1837234730 -0.800666079
[145,] -1.52102106 0.1273012490 0.228632789
[146,] -2.02369418 -0.3486740803 0.453162746
[147,] 0.16760623 0.2254071777 0.550541070
[148,] 1.15753961 -0.7934474946 -0.374290842
[149,] 0.18161879 1.3919632673 -0.112643600
[150,] -0.78767957 -0.4903042411 1.393766913
[151,] 0.69185906 -1.2377531115 0.492603724
[152,] 0.66831720 0.3138452400 -1.242766718
[153,] -0.38499807 0.7399857818 0.091903161
[154,] -0.66637556 0.7340279988 0.431514797
[155,] 1.02950979 1.1447546533 0.710214823
[156,] 0.70321160 -1.9132820743 -0.348179961
[157,] 0.08782945 -0.4634698203 -1.430123887
[158,] 0.30170565 1.4078631704 -0.465015063
[159,] -1.40641616 0.0061963661 0.117144918
[160,] -3.04383768 -2.6398077687 -0.018878829
[161,] -0.72873104 -0.0006936005 -0.346453004
[162,] 0.45155802 0.0883180552 -0.450474999
[163,] 1.30876196 -0.4246339156 -1.927763534
[164,] 0.07380519 0.9641981428 -0.217139487
[165,] -0.14229016 0.1699527414 -0.313236374
[166,] 0.54594559 0.2595643723 0.352467618
$scores$corr.X.xscores
[,1] [,2] [,3]
exports -0.19624979 0.5744516 -0.79466431
imports -0.08477313 -0.1139197 -0.98986656
gdpp -0.94836654 0.3096150 -0.06884361
$scores$corr.Y.xscores
[,1] [,2] [,3]
life_expec -0.5259226 0.3209816 -0.03909825
child_mort 0.4176059 -0.2488482 0.11752471
health -0.4873828 -0.3801229 -0.01000618
$scores$corr.X.yscores
[,1] [,2] [,3]
exports -0.13010050 0.32317539 -0.14629785
imports -0.05619892 -0.06408905 -0.18223462
gdpp -0.62870365 0.17418344 -0.01267412
$scores$corr.Y.yscores
[,1] [,2] [,3]
life_expec -0.7933267 0.5705520 -0.21237488
child_mort 0.6299367 -0.4423334 0.63837367
health -0.7351914 -0.6756770 -0.05435183
> cc1$xcoef
[,1] [,2] [,3]
exports 1.967954e-02 5.841000e-02 -8.407546e-03
imports -1.465704e-02 -5.253456e-02 -3.435680e-02
gdpp -6.179183e-05 -1.189558e-05 6.660926e-06
> cc1$ycoef
[,1] [,2] [,3]
life_expec -0.11496141 0.109839780 0.189550758
child_mort -0.00962192 0.006231512 0.052683859
health -0.21805735 -0.300647296 0.006854886
> cc1$cor
[1] 0.6629332 0.5625807 0.1841002Menjalankan fungsi cc() dari package CCA yang mungkin Anda muat sebelumnya. Fungsi ini melakukan analisis yang sama tetapi menghasilkan format objek yang sedikit berbeda dan kompatibel dengan fungsi lanjutan dalam package tersebut. Hasilnya disimpan dalam objek cc1.
> cc2=comput(data_k1, data_k2, cc1)
> cc2
$xscores
[,1] [,2] [,3]
[1,] 0.189075347 -1.560443350 0.2503137383
[2,] 0.270518367 -0.745515842 -0.0045825446
[3,] 0.704423647 0.761141174 0.5013804184
[4,] 1.063675215 1.564055702 -0.1008577589
[5,] -0.037188878 -0.360919887 -0.4515694952
[6,] 0.185526599 0.361708130 1.2333220476
[7,] 0.230952773 -0.982354664 0.1635342111
[8,] -2.439121598 -0.337998264 1.3345014917
[9,] -1.904531088 0.148215116 0.1121613252
[10,] 1.088885927 2.235564050 0.7445102350
[11,] -0.997348119 -0.363649792 0.2641756856
[12,] 0.027145841 1.360084179 -0.3218783578
[13,] 0.633062802 0.001126312 0.9948759517
[14,] -0.240573342 -0.220730622 -0.0253733723
[15,] 0.378096643 -0.237098672 -0.7346699949
[16,] -1.650369237 0.230865541 -1.0397182293
[17,] 0.718944983 0.547934758 -0.5626006989
[18,] 0.560844886 -0.352307841 0.4002024238
[19,] 0.349973653 -1.036863956 -0.8984995388
[20,] 0.870264713 0.801840001 0.3616854814
[21,] 0.232267840 -0.794247842 -0.1081750422
[22,] 0.398295693 -0.003047128 -0.2134499230
[23,] 0.030101247 0.092685233 1.4525573062
[24,] -0.580695864 2.266789063 0.5797976565
[25,] 0.472985716 0.287321302 -0.3240824284
[26,] 0.593020366 -0.219554330 0.6987698409
[27,] 0.271263515 -1.320248805 0.4530828105
[28,] 0.828552966 0.245661526 -0.6205162850
[29,] 0.644750289 0.083522270 0.7677706542
[30,] -2.126074656 -0.271854163 0.8793334974
[31,] 0.217736978 -1.155166425 -0.5028032493
[32,] 0.500799707 -0.487396688 0.8666324930
[33,] 0.715750553 0.074400989 0.0753823730
[34,] 0.170590588 0.625108945 0.5669195994
[35,] 0.589103910 0.515494692 0.9061176304
[36,] 0.350362236 0.140093018 1.1697257005
[37,] 0.203977497 -1.540582767 -0.0365227688
[38,] 0.745753472 0.011800414 -0.1740966365
[39,] 1.388231319 2.285293481 -0.7032221446
[40,] 0.318223236 0.223795300 0.4463270560
[41,] 0.970300888 0.887123649 -0.0316189265
[42,] 0.031879691 0.254895616 0.3381306932
[43,] -1.073503297 -0.234102264 -0.3190922160
[44,] -0.162004335 0.535940521 -0.7107283387
[45,] -2.544604534 0.190091328 0.3371221911
[46,] 0.306432542 -0.267488128 0.5746952980
[47,] 0.470773045 0.092922487 0.5566350426
[48,] 0.553190049 0.036621795 0.7976727595
[49,] 0.346155959 -0.691612595 0.0660523304
[50,] 0.453116707 1.934714837 -0.7577550692
[51,] 0.407524120 -0.729168459 1.0357509345
[52,] 0.253386236 0.824628118 -1.0211432470
[53,] 0.659904504 0.196557548 -0.7837172177
[54,] -1.956805872 -0.033064614 0.5707444437
[55,] -1.708647727 -0.172957019 0.9530112642
[56,] 1.002364799 2.494104122 0.7971501075
[57,] 0.492342390 -0.638916366 0.2099345010
[58,] 0.416540390 -0.543848964 -0.2152607607
[59,] -1.609678336 0.245312304 0.5214762400
[60,] 0.511392977 -0.482987830 0.0570521114
[61,] -0.992701739 -0.421104445 0.8119443685
[62,] -0.023607151 -1.061376080 0.0319629103
[63,] 0.485362623 -0.212854376 0.4281098878
[64,] 0.607616802 -0.286541654 0.1386798919
[65,] 0.428049104 -0.764577775 0.5423377230
[66,] 0.348861507 -0.968535412 -1.2561953949
[67,] -0.003567692 -2.292351171 -0.4737847880
[68,] 0.363602046 0.824048958 -1.3554482097
[69,] -1.488288215 0.566759515 0.2158064306
[70,] 0.648684729 0.101156992 0.7612383931
[71,] 0.642274391 0.426430190 0.9201457389
[72,] 0.476885379 0.549191979 1.0451557424
[73,] 0.682057520 0.677232051 0.4004759585
[74,] -1.565551308 1.113512830 -1.6401271753
[75,] -1.430342858 -0.162033144 0.9654120083
[76,] 0.284346641 -0.612315785 -0.0627542971
[77,] -1.969327468 -0.146836729 1.5763714732
[78,] 0.396344210 -0.626620570 -0.8788653632
[79,] 0.555690192 1.123882400 0.5348587159
[80,] 0.539689139 -0.346740619 0.5513424184
[81,] -0.316877359 -3.217545966 -0.9736777564
[82,] -0.827382299 2.061753276 0.5245415917
[83,] 0.448159485 -1.067748807 -1.3615921763
[84,] 0.588172970 -0.314964064 -0.1104978773
[85,] 0.235492759 0.328379459 -0.3959503812
[86,] -0.040749863 -0.956060592 -0.4369276265
[87,] -0.092731357 -2.797717476 -1.9201746174
[88,] -0.317016460 -3.532122262 -1.4665194985
[89,] 0.610787314 1.696891243 -0.0440330848
[90,] 0.243171040 0.361940442 -0.9045325076
[91,] -4.440969984 1.733643996 -3.7772625572
[92,] 0.335688808 -0.560709118 -0.4271837408
[93,] 0.520767714 -0.582812290 0.1885459285
[94,] 0.593352284 -0.286331585 0.4856389851
[95,] 0.793602503 1.458819206 -1.2362078478
[96,] 0.814392069 1.233233997 -0.9787416320
[97,] 0.575034710 -0.299800496 0.4804261965
[98,] 0.134530553 0.816248336 -4.5634298252
[99,] 0.711143741 -0.047165994 -0.6475795584
[100,] 0.286142002 -0.151385484 -0.6408458285
[101,] -0.216923574 -2.695848905 -1.0881017350
[102,] 0.204691793 -1.632843930 -1.1424011590
[103,] 0.608784070 -0.061649086 -0.4496854455
[104,] 0.080929198 -0.991372619 -0.5474294930
[105,] 0.513109558 -0.191011893 0.1441110548
[106,] 0.601411477 -0.371329233 0.0239950945
[107,] 0.624680545 0.211988291 1.8767263345
[108,] 0.414852165 -0.237751078 -0.5794421796
[109,] 0.302984861 -1.138895751 0.5461374548
[110,] -1.938837953 0.486811193 -0.5820651180
[111,] -1.211939966 0.118810934 0.8810601397
[112,] 0.380273546 -1.066047874 0.0020776387
[113,] 0.783436743 0.756791523 1.0783266530
[114,] -4.377219023 -0.001953133 1.1452069260
[115,] 0.181045393 1.664365178 0.0340059477
[116,] 0.601615533 -0.022170310 1.1002295103
[117,] -0.999710903 0.172794910 0.6525474973
[118,] 0.416661489 0.105218000 -1.3480835689
[119,] 0.814469551 0.695275183 -0.3377901544
[120,] 0.572610537 0.534596261 0.8553421813
[121,] 0.701335682 0.305402175 0.3374722841
[122,] 0.078063056 0.201488416 0.1736898075
[123,] -0.665519373 -0.265147413 0.4868668946
[124,] -2.782216186 1.773197940 1.0001071126
[125,] 0.248865019 -0.011238881 0.3210155845
[126,] 0.288758274 0.690646678 0.9741690294
[127,] 0.446206346 -0.660977416 0.7454815241
[128,] 0.267723932 -0.904216173 -0.1735401775
[129,] -0.015607553 1.154747514 0.4510931740
[130,] 0.522101949 -0.453792693 0.2860599977
[131,] 0.295642831 -0.438234810 -0.0129373407
[132,] 0.280181155 -0.102509711 -2.5538979875
[133,] 0.484845352 -0.615064037 0.5494273256
[134,] -0.809363427 2.207490028 -5.4758668064
[135,] 0.020038994 0.392864502 -1.3305572985
[136,] -0.417910162 0.393819436 -0.6724561750
[137,] 0.384890402 -1.180701720 -1.3223454418
[138,] 0.395939297 0.365315853 0.7399853704
[139,] -0.386033469 0.416301753 0.0179155625
[140,] -1.103437825 -0.062828870 0.9426617383
[141,] 0.503827134 -0.075680191 0.8064930234
[142,] -0.007948459 -1.281767109 -0.2731126321
[143,] 0.728685770 0.450313668 1.1266184838
[144,] 0.642025307 1.171301280 0.1679143979
[145,] -2.222149342 0.161462448 0.4336098841
[146,] -3.446848403 0.271574549 0.0009307686
[147,] 0.073272229 -1.996158443 -0.2603390799
[148,] 0.582661550 -0.224002791 0.7209979500
[149,] 0.788191013 0.850571007 -0.7408316759
[150,] 0.097930504 -1.153946280 0.9236896632
[151,] 0.605666766 -0.447116588 -0.4300513958
[152,] -0.174602227 -2.264942560 -0.2789962434
[153,] 0.612016349 0.216132886 -0.4236098257
[154,] 0.051087341 -0.054513382 0.8969855314
[155,] 1.259506988 2.286915457 -0.2674728377
[156,] 0.565114526 -0.289918689 0.7509157031
[157,] 0.678961900 0.252101844 -0.2585189068
[158,] -0.881249493 1.001750554 -0.7319003058
[159,] -1.615624245 -0.212803835 0.8371537738
[160,] -2.293727912 -0.460671513 1.5486237540
[161,] 0.094512145 0.281084388 0.8588097999
[162,] 0.805394964 0.558782759 0.6368300349
[163,] 0.645670871 0.138841553 -0.3092860082
[164,] 0.153265083 0.800323003 1.1189536937
[165,] 0.845037222 0.197501958 -1.4787067263
[166,] 0.689788659 0.150364566 0.4479514989
$yscores
[,1] [,2] [,3]
[1,] 0.99548880 -1.4919304015 0.012978600
[2,] -0.38246318 0.5668766240 -0.061643720
[3,] 0.01056649 1.3710623190 0.523669094
[4,] 1.30143928 0.5379739859 2.237098087
[5,] -0.26593597 0.7388745837 -0.302341194
[6,] -0.64276534 0.0328672512 -0.256430130
[7,] 0.41681148 0.8930962377 -0.566008212
[8,] -1.39956960 0.4640204261 0.412069717
[9,] -1.71730672 -0.3863243605 0.116962242
[10,] 0.37390201 0.1182960624 -0.240346738
[11,] -0.36031513 -0.1280384346 -0.673849874
[12,] 0.07353122 0.9590953232 -0.550810541
[13,] 0.64092395 1.0341768135 0.527267078
[14,] -0.71499658 0.1689377480 -0.102530740
[15,] 0.60758637 0.1322606006 -1.771227624
[16,] -1.59633319 -0.3498037594 0.030667169
[17,] 0.45405694 0.4482448777 -0.883792043
[18,] 0.91040855 0.2990403983 2.146432112
[19,] 0.14362006 0.6740658540 0.508037721
[20,] 0.24207592 0.7516818863 0.616261633
[21,] -1.33877222 -0.8065943449 -0.446712041
[22,] 1.09776862 -1.8444686448 -1.797671687
[23,] -0.70825545 -0.3834384233 -0.274248943
[24,] 0.39325418 1.7321376930 -0.256806283
[25,] -0.12052701 0.1709112498 -0.819938360
[26,] 0.73497704 -0.8918860448 1.688700350
[27,] -0.08625841 -2.5145857202 0.503986502
[28,] 0.71236374 -0.1186899569 -0.536413923
[29,] 1.23200158 -0.5235998606 1.142462655
[30,] -1.88720155 -0.3805457601 0.339148332
[31,] 0.49555426 0.9507697740 -0.277229417
[32,] 2.21489065 -0.9987933319 1.437020327
[33,] 1.05068448 -0.1693598144 3.199431199
[34,] -0.93580284 0.4012863780 0.062561306
[35,] 0.14435583 0.8194986352 -0.441440715
[36,] -0.63998281 0.2776504380 0.069808156
[37,] 0.56904302 0.4840396369 1.725208737
[38,] 0.52583450 -1.2875792926 1.620900264
[39,] 1.88216102 0.3448220687 -0.611590728
[40,] -1.74077417 -0.3304776897 0.408156447
[41,] 1.28102749 -0.6658551455 1.112128804
[42,] -0.53950927 0.1339236161 -0.638140144
[43,] -0.54476604 1.0556656103 -0.068126993
[44,] -0.68342381 0.2165675017 -0.520492752
[45,] -1.68764386 -0.6176693609 -0.080383333
[46,] -0.28634003 0.5902835147 0.551630570
[47,] -0.83950067 0.2098029693 0.472340264
[48,] 0.57616740 0.5759231863 -0.515445615
[49,] -0.23306572 0.2331980124 -0.339209596
[50,] 0.93101202 0.0859386241 1.978441286
[51,] 1.77281042 0.3732701713 -0.822153339
[52,] -0.11815970 0.6148599918 -0.759548184
[53,] 1.17846487 -0.0865306865 -1.763157877
[54,] -1.20029994 0.1669817403 -0.060354671
[55,] -2.01606142 -0.5586742759 0.288458937
[56,] 1.36990223 0.3055020285 -0.141121522
[57,] 0.43373308 0.0361109734 1.241274712
[58,] -0.75323966 -0.8854836560 -0.706004914
[59,] -1.80119437 -0.6112718010 0.039986485
[60,] 0.96947544 -0.2199525368 0.317505802
[61,] -1.54932166 -0.1893478363 0.072135202
[62,] 0.36204729 0.2126613354 -1.119495102
[63,] -0.05396543 0.0446359567 -0.016884495
[64,] 1.18551815 -0.3803510439 1.326461067
[65,] 0.63485118 -1.6861198021 1.159430487
[66,] 0.91218685 -0.1367739159 -1.010451086
[67,] 2.77869506 -3.2035633252 1.646371153
[68,] -0.24362502 0.0686061054 -0.955937180
[69,] -1.52449981 0.2488774123 0.300758001
[70,] 0.91774543 0.4720828819 0.230015259
[71,] 1.05174976 1.1525186237 -0.421956379
[72,] 0.00564266 0.6716050328 -0.267100808
[73,] 0.06277401 -0.8653696541 -0.704323193
[74,] -1.31016458 0.1462401154 0.080331436
[75,] -1.53182953 0.1855654463 0.318541312
[76,] 0.16646199 0.9236065382 -0.297826647
[77,] -1.64186725 0.3134298866 0.484625863
[78,] -0.69318657 0.0920340664 0.090872047
[79,] 0.97139418 0.4091396589 -1.316435845
[80,] 1.12325956 -0.0906383366 -0.230533778
[81,] -0.06840811 -2.2874259046 -0.557348935
[82,] 0.30970210 1.9179668364 -0.033934817
[83,] 0.46983209 -0.0976245068 -0.857785775
[84,] 0.90866814 0.2074489319 0.836918059
[85,] 0.04173878 0.1214678769 -1.130932972
[86,] -0.82887756 0.7677466276 0.273165967
[87,] 1.25164437 -3.5564553849 -1.301037894
[88,] -0.44487600 -2.2610073623 0.866424236
[89,] 0.22274223 1.3476369473 -0.117856419
[90,] -0.03190075 0.0136252585 -1.199072697
[91,] -1.09051772 0.6632909606 0.167435777
[92,] -0.17614700 0.1132602180 -0.820548752
[93,] 1.56687859 -0.0156835465 -0.616353084
[94,] 1.56485938 -1.5329234428 -0.565609930
[95,] 0.37918195 0.9643490267 -0.875991214
[96,] -0.48571430 0.7875755368 0.061004297
[97,] 0.73275940 -0.0561414104 3.086278004
[98,] -1.20593446 0.3138076075 0.194652755
[99,] 0.23791584 0.8240657680 2.645181496
[100,] 0.08625153 0.4037268563 -0.699405282
[101,] -1.02267548 -2.7845114130 -0.842504802
[102,] -0.75248639 -1.7026605882 -1.245765745
[103,] 0.92928250 -0.1495872927 -1.483218642
[104,] -0.85789133 -0.2528652898 -0.541441954
[105,] 0.07119575 0.7705116378 0.288717279
[106,] 1.60380239 -0.8988236099 0.243481909
[107,] 1.24844513 1.1982295903 0.624517161
[108,] 1.22309696 -1.2009147947 -1.339371470
[109,] 0.52819630 0.2684378263 0.014628177
[110,] -1.93847500 -0.6336926682 0.171578564
[111,] -1.58532131 -0.0599660102 0.286712480
[112,] 0.90868894 -0.2743869338 2.217252325
[113,] 0.66552627 -0.0169804693 2.907658689
[114,] -1.43275614 0.1187247558 0.143365949
[115,] 0.51193331 1.6508210379 -0.383616252
[116,] 1.10420687 1.1369339176 1.801110544
[117,] -1.08880528 0.7275822811 0.280262115
[118,] -0.92272215 0.2849506719 0.396627454
[119,] -0.05343348 0.5764056074 -0.088187768
[120,] -0.28145824 1.2076283897 0.426491089
[121,] 0.95062837 0.7442914098 -0.659454578
[122,] -0.47890302 0.2272335606 -0.613854680
[123,] -1.63298496 -0.4657048111 -0.036796832
[124,] 0.35637875 2.2960726114 0.112029216
[125,] 0.17702391 0.5411403633 -0.829812613
[126,] 0.81781182 0.1878377343 -1.765244258
[127,] -0.35097146 -1.6129245662 0.223830586
[128,] 0.16466577 0.0780299414 -0.850862875
[129,] 0.25695986 1.1089234157 -0.352012147
[130,] 0.74261284 -0.2037546858 0.245510830
[131,] -0.95144846 -0.8224427174 -0.812688353
[132,] 0.65897380 1.1816709178 -0.748838302
[133,] -0.74184412 -2.8483516901 3.500690029
[134,] -0.42066517 1.9625328486 0.406689722
[135,] -0.68657209 -0.2542676547 -0.703694429
[136,] -1.24505000 -0.0249896032 -0.141440030
[137,] 0.74920664 -1.5664163678 -2.209510640
[138,] 1.26855756 -2.3369564834 -2.260806052
[139,] -0.78190434 0.7921279183 0.002705779
[140,] -1.55507800 0.2032806270 0.345983240
[141,] 0.67510892 1.4098676161 -0.731029140
[142,] 0.57196488 0.7015252318 -0.750786626
[143,] 0.23902673 -0.0878584412 1.207572005
[144,] 0.13483450 -0.1837234730 -0.800666079
[145,] -1.52102106 0.1273012490 0.228632789
[146,] -2.02369418 -0.3486740803 0.453162746
[147,] 0.16760623 0.2254071777 0.550541070
[148,] 1.15753961 -0.7934474946 -0.374290842
[149,] 0.18161879 1.3919632673 -0.112643600
[150,] -0.78767957 -0.4903042411 1.393766913
[151,] 0.69185906 -1.2377531115 0.492603724
[152,] 0.66831720 0.3138452400 -1.242766718
[153,] -0.38499807 0.7399857818 0.091903161
[154,] -0.66637556 0.7340279988 0.431514797
[155,] 1.02950979 1.1447546533 0.710214823
[156,] 0.70321160 -1.9132820743 -0.348179961
[157,] 0.08782945 -0.4634698203 -1.430123887
[158,] 0.30170565 1.4078631704 -0.465015063
[159,] -1.40641616 0.0061963661 0.117144918
[160,] -3.04383768 -2.6398077687 -0.018878829
[161,] -0.72873104 -0.0006936005 -0.346453004
[162,] 0.45155802 0.0883180552 -0.450474999
[163,] 1.30876196 -0.4246339156 -1.927763534
[164,] 0.07380519 0.9641981428 -0.217139487
[165,] -0.14229016 0.1699527414 -0.313236374
[166,] 0.54594559 0.2595643723 0.352467618
$corr.X.xscores
[,1] [,2] [,3]
exports -0.19624979 0.5744516 -0.79466431
imports -0.08477313 -0.1139197 -0.98986656
gdpp -0.94836654 0.3096150 -0.06884361
$corr.Y.xscores
[,1] [,2] [,3]
life_expec -0.5259226 0.3209816 -0.03909825
child_mort 0.4176059 -0.2488482 0.11752471
health -0.4873828 -0.3801229 -0.01000618
$corr.X.yscores
[,1] [,2] [,3]
exports -0.13010050 0.32317539 -0.14629785
imports -0.05619892 -0.06408905 -0.18223462
gdpp -0.62870365 0.17418344 -0.01267412
$corr.Y.yscores
[,1] [,2] [,3]
life_expec -0.7933267 0.5705520 -0.21237488
child_mort 0.6299367 -0.4423334 0.63837367
health -0.7351914 -0.6756770 -0.05435183Memanggil fungsi comput() dari package CCA. Fungsi ini digunakan untuk menghitung nilai tambahan seperti korelasi loading (korelasi antara variabel asli dan variate kanonikal) berdasarkan hasil dari cc1.
> redundancy(cc)
Redundancies for the X variables & total X canonical redundancy
Xcan1 Xcan2 Xcan3 total X|Y
0.13845 0.04630 0.01826 0.20301
Redundancies for the Y variables & total Y canonical redundancy
Ycan1 Ycan2 Ycan3 total Y|X
0.229510 0.103149 0.005147 0.337807 Menghitung Redundansi (Redundancy Index). Redundansi mengukur persentase variansi satu set variabel yang dijelaskan (diekstrak) oleh variat kanonikal dari set variabel yang lain. Ini menilai kepentingan praktis dari korelasi yang ditemukan, bukan hanya signifikansi statistik.
> n=166
> p=3
> q=3
>
> k=(n-1)-0.5*(p+q+1)Mendifinisikan n sesuai sebanyak jumlah sampel data, p sejumlah variabel di set 1, dan q sejumlah di variabel di set 2. lalu mendefinisikan k (faktor koreksi) sesuai dengan rumus tersebut.
> a=1-0.43948
> b=1-0.31650
> c=1-0.03389menghitung rumusΒ 1-lambda(i) dengan lambda = canonical r^2
> B1=-k*log(a*b*c)
> B2=-k*log(b*c)
> B3=-k*log(c)
> db1=p*q
> db2=(p-1)*(q-1)
> db3=(p-2)*(q-2)
> pv1=1-pchisq(B1, db1)
> pv2=1-pchisq(B2, db2)
> pv3=1-pchisq(B3, db3)
> B=rbind(B1,B2,B3)
> d=rbind(db1, db2, db3)
> p=rbind(pv1,pv2,pv3)
> result <- cbind(B , d, p)
> colnames(result) <- c("Bartlett", "db", "p-value")
> print(result)
Bartlett db p-value
B1 160.514294 9 0.000000e+00
B2 67.023502 4 9.636736e-14
B3 5.568129 1 1.829029e-02Menghitung statistik uji untuk menentukan pasangan korelasi kanonikal mana yang signifikan secara statistik. Uji yang digunakan adalah aproksimasi Bartlettβs Chi-Square berdasarkan Wilksβ Lambda lalu menyusun hasil perhitungan statistik ke dalam format tabel.
> cc1$xcoef
[,1] [,2] [,3]
exports 1.967954e-02 5.841000e-02 -8.407546e-03
imports -1.465704e-02 -5.253456e-02 -3.435680e-02
gdpp -6.179183e-05 -1.189558e-05 6.660926e-06
> cc1$ycoef
[,1] [,2] [,3]
life_expec -0.11496141 0.109839780 0.189550758
child_mort -0.00962192 0.006231512 0.052683859
health -0.21805735 -0.300647296 0.006854886Fungsi kanonik yang didapat untuk variabel ekonomi
U1 = 0,01967954X1 - 0,01465704X2 - 0.00006179X3
U2 = 0,058410X1 - 0,05253456X2 - 0,000011896X3
U3 = -0.00840755X1 - 0,0343568X2 + 0,000006609X3
Fungsi kanonik yang didapat untuk variabel sosial
V1 = -0,11496141X1 - 0,00962192X2 - 0,21805735X3
V2 = 0,109839780X1 + 0,006231512X2 - 0,300647296X3
V3 = 0,189550758X1 + 0,052683859X2 + 0,006854886X3
> cc1$cor
[1] 0.6629332 0.5625807 0.1841002Korelasi kanonik dari gugus variabel dependen dengan variabel
independen menghasilkan 3 fungsi kanonik.
Korelasi Kanonik I = 0,6629332
Korelasi Kanonik II = 0,5625807
Korelasi Kanonik III = 0,1841002
Berdasarkan hasil tersebut terlihat bahwa korelasi kanonik terbesar terjadi pada fungsi kanonik pertama.
Uji yang digunakan adalah uji Rao F dengan kriteria Wilks Lambda.
Hipotesis:
π»0: π1 = π2 Β =Β π3 = 0 vs
π»1: setidaknya ada ππ β 0, untuk i = 1,2,3
> cc=cancor(data_k1, data_k2)
> cc
Canonical correlation analysis of:
3 X variables: exports, imports, gdpp
with 3 Y variables: life_expec, child_mort, health
CanR CanRSQ Eigen percent cum scree
1 0.6629 0.43948 0.78406 61.150 61.15 ******************************
2 0.5626 0.31650 0.46305 36.114 97.26 ******************
3 0.1841 0.03389 0.03508 2.736 100.00 *
Test of H0: The canonical correlations in the
current row and all that follow are zero
CanR LR test stat approx F numDF denDF Pr(> F)
1 0.66293 0.37013 21.8313 9 389.55 < 2.2e-16 ***
2 0.56258 0.66034 18.5634 4 322.00 9.658e-14 ***
3 0.18410 0.96611 5.6833 1 162.00 0.01828 *
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1Nilai p yang didapat adalah 2,2e-16 maka π»0 ditolak sehingga terdapat keeratan hubungan secara nyata antara variabel ekonomi dengan variabel kesejahteraan.
Mengunakan hipotesis yang sama
Hipotesis:
π»0: π1 = π2Β = π3 = 0 vs
π»1: setidaknya ada ππ β 0, untuk i = 1,2,3
> n=166
> p=3
> q=3
>
> k=(n-1)-0.5*(p+q+1)
>
> a=1-0.43948
> b=1-0.31650
> c=1-0.03389
>
> B1=-k*log(a*b*c)
> B2=-k*log(b*c)
> B3=-k*log(c)
> db1=p*q
> db2=(p-1)*(q-1)
> db3=(p-2)*(q-2)
> pv1=1-pchisq(B1, db1)
> pv2=1-pchisq(B2, db2)
> pv3=1-pchisq(B3, db3)
> B=rbind(B1,B2,B3)
> d=rbind(db1, db2, db3)
> p=rbind(pv1,pv2,pv3)
> result <- cbind(B , d, p)
> colnames(result) <- c("Bartlett", "db", "p-value")
> print(result)
Bartlett db p-value
B1 160.514294 9 0.000000e+00
B2 67.023502 4 9.636736e-14
B3 5.568129 1 1.829029e-02Berdasarkan output di atas dapat diputuskan untuk menolak π»0 karena π β π£πππ’π = 0,00000, sehingga dilanjutkan pengujian yang kedua.
Berdasarkan output di atas dapat diputuskan untuk menolak π»0 karena π β π£πππ’π = 9,636736e-14, sehingga dilanjutkan pengujian yang ketiga.
Berdasarkan output di atas dapat diputuskan untuk menolak π»0 karena π β π£πππ’π = 1,829029e-02, sehingga dapat disimpulkan semua pasangan korelasi semua variabel signifikan secara statistik.
> cc2=comput(data_k1, data_k2, cc1)
> cc2
$xscores
[,1] [,2] [,3]
[1,] 0.189075347 -1.560443350 0.2503137383
[2,] 0.270518367 -0.745515842 -0.0045825446
[3,] 0.704423647 0.761141174 0.5013804184
[4,] 1.063675215 1.564055702 -0.1008577589
[5,] -0.037188878 -0.360919887 -0.4515694952
[6,] 0.185526599 0.361708130 1.2333220476
[7,] 0.230952773 -0.982354664 0.1635342111
[8,] -2.439121598 -0.337998264 1.3345014917
[9,] -1.904531088 0.148215116 0.1121613252
[10,] 1.088885927 2.235564050 0.7445102350
[11,] -0.997348119 -0.363649792 0.2641756856
[12,] 0.027145841 1.360084179 -0.3218783578
[13,] 0.633062802 0.001126312 0.9948759517
[14,] -0.240573342 -0.220730622 -0.0253733723
[15,] 0.378096643 -0.237098672 -0.7346699949
[16,] -1.650369237 0.230865541 -1.0397182293
[17,] 0.718944983 0.547934758 -0.5626006989
[18,] 0.560844886 -0.352307841 0.4002024238
[19,] 0.349973653 -1.036863956 -0.8984995388
[20,] 0.870264713 0.801840001 0.3616854814
[21,] 0.232267840 -0.794247842 -0.1081750422
[22,] 0.398295693 -0.003047128 -0.2134499230
[23,] 0.030101247 0.092685233 1.4525573062
[24,] -0.580695864 2.266789063 0.5797976565
[25,] 0.472985716 0.287321302 -0.3240824284
[26,] 0.593020366 -0.219554330 0.6987698409
[27,] 0.271263515 -1.320248805 0.4530828105
[28,] 0.828552966 0.245661526 -0.6205162850
[29,] 0.644750289 0.083522270 0.7677706542
[30,] -2.126074656 -0.271854163 0.8793334974
[31,] 0.217736978 -1.155166425 -0.5028032493
[32,] 0.500799707 -0.487396688 0.8666324930
[33,] 0.715750553 0.074400989 0.0753823730
[34,] 0.170590588 0.625108945 0.5669195994
[35,] 0.589103910 0.515494692 0.9061176304
[36,] 0.350362236 0.140093018 1.1697257005
[37,] 0.203977497 -1.540582767 -0.0365227688
[38,] 0.745753472 0.011800414 -0.1740966365
[39,] 1.388231319 2.285293481 -0.7032221446
[40,] 0.318223236 0.223795300 0.4463270560
[41,] 0.970300888 0.887123649 -0.0316189265
[42,] 0.031879691 0.254895616 0.3381306932
[43,] -1.073503297 -0.234102264 -0.3190922160
[44,] -0.162004335 0.535940521 -0.7107283387
[45,] -2.544604534 0.190091328 0.3371221911
[46,] 0.306432542 -0.267488128 0.5746952980
[47,] 0.470773045 0.092922487 0.5566350426
[48,] 0.553190049 0.036621795 0.7976727595
[49,] 0.346155959 -0.691612595 0.0660523304
[50,] 0.453116707 1.934714837 -0.7577550692
[51,] 0.407524120 -0.729168459 1.0357509345
[52,] 0.253386236 0.824628118 -1.0211432470
[53,] 0.659904504 0.196557548 -0.7837172177
[54,] -1.956805872 -0.033064614 0.5707444437
[55,] -1.708647727 -0.172957019 0.9530112642
[56,] 1.002364799 2.494104122 0.7971501075
[57,] 0.492342390 -0.638916366 0.2099345010
[58,] 0.416540390 -0.543848964 -0.2152607607
[59,] -1.609678336 0.245312304 0.5214762400
[60,] 0.511392977 -0.482987830 0.0570521114
[61,] -0.992701739 -0.421104445 0.8119443685
[62,] -0.023607151 -1.061376080 0.0319629103
[63,] 0.485362623 -0.212854376 0.4281098878
[64,] 0.607616802 -0.286541654 0.1386798919
[65,] 0.428049104 -0.764577775 0.5423377230
[66,] 0.348861507 -0.968535412 -1.2561953949
[67,] -0.003567692 -2.292351171 -0.4737847880
[68,] 0.363602046 0.824048958 -1.3554482097
[69,] -1.488288215 0.566759515 0.2158064306
[70,] 0.648684729 0.101156992 0.7612383931
[71,] 0.642274391 0.426430190 0.9201457389
[72,] 0.476885379 0.549191979 1.0451557424
[73,] 0.682057520 0.677232051 0.4004759585
[74,] -1.565551308 1.113512830 -1.6401271753
[75,] -1.430342858 -0.162033144 0.9654120083
[76,] 0.284346641 -0.612315785 -0.0627542971
[77,] -1.969327468 -0.146836729 1.5763714732
[78,] 0.396344210 -0.626620570 -0.8788653632
[79,] 0.555690192 1.123882400 0.5348587159
[80,] 0.539689139 -0.346740619 0.5513424184
[81,] -0.316877359 -3.217545966 -0.9736777564
[82,] -0.827382299 2.061753276 0.5245415917
[83,] 0.448159485 -1.067748807 -1.3615921763
[84,] 0.588172970 -0.314964064 -0.1104978773
[85,] 0.235492759 0.328379459 -0.3959503812
[86,] -0.040749863 -0.956060592 -0.4369276265
[87,] -0.092731357 -2.797717476 -1.9201746174
[88,] -0.317016460 -3.532122262 -1.4665194985
[89,] 0.610787314 1.696891243 -0.0440330848
[90,] 0.243171040 0.361940442 -0.9045325076
[91,] -4.440969984 1.733643996 -3.7772625572
[92,] 0.335688808 -0.560709118 -0.4271837408
[93,] 0.520767714 -0.582812290 0.1885459285
[94,] 0.593352284 -0.286331585 0.4856389851
[95,] 0.793602503 1.458819206 -1.2362078478
[96,] 0.814392069 1.233233997 -0.9787416320
[97,] 0.575034710 -0.299800496 0.4804261965
[98,] 0.134530553 0.816248336 -4.5634298252
[99,] 0.711143741 -0.047165994 -0.6475795584
[100,] 0.286142002 -0.151385484 -0.6408458285
[101,] -0.216923574 -2.695848905 -1.0881017350
[102,] 0.204691793 -1.632843930 -1.1424011590
[103,] 0.608784070 -0.061649086 -0.4496854455
[104,] 0.080929198 -0.991372619 -0.5474294930
[105,] 0.513109558 -0.191011893 0.1441110548
[106,] 0.601411477 -0.371329233 0.0239950945
[107,] 0.624680545 0.211988291 1.8767263345
[108,] 0.414852165 -0.237751078 -0.5794421796
[109,] 0.302984861 -1.138895751 0.5461374548
[110,] -1.938837953 0.486811193 -0.5820651180
[111,] -1.211939966 0.118810934 0.8810601397
[112,] 0.380273546 -1.066047874 0.0020776387
[113,] 0.783436743 0.756791523 1.0783266530
[114,] -4.377219023 -0.001953133 1.1452069260
[115,] 0.181045393 1.664365178 0.0340059477
[116,] 0.601615533 -0.022170310 1.1002295103
[117,] -0.999710903 0.172794910 0.6525474973
[118,] 0.416661489 0.105218000 -1.3480835689
[119,] 0.814469551 0.695275183 -0.3377901544
[120,] 0.572610537 0.534596261 0.8553421813
[121,] 0.701335682 0.305402175 0.3374722841
[122,] 0.078063056 0.201488416 0.1736898075
[123,] -0.665519373 -0.265147413 0.4868668946
[124,] -2.782216186 1.773197940 1.0001071126
[125,] 0.248865019 -0.011238881 0.3210155845
[126,] 0.288758274 0.690646678 0.9741690294
[127,] 0.446206346 -0.660977416 0.7454815241
[128,] 0.267723932 -0.904216173 -0.1735401775
[129,] -0.015607553 1.154747514 0.4510931740
[130,] 0.522101949 -0.453792693 0.2860599977
[131,] 0.295642831 -0.438234810 -0.0129373407
[132,] 0.280181155 -0.102509711 -2.5538979875
[133,] 0.484845352 -0.615064037 0.5494273256
[134,] -0.809363427 2.207490028 -5.4758668064
[135,] 0.020038994 0.392864502 -1.3305572985
[136,] -0.417910162 0.393819436 -0.6724561750
[137,] 0.384890402 -1.180701720 -1.3223454418
[138,] 0.395939297 0.365315853 0.7399853704
[139,] -0.386033469 0.416301753 0.0179155625
[140,] -1.103437825 -0.062828870 0.9426617383
[141,] 0.503827134 -0.075680191 0.8064930234
[142,] -0.007948459 -1.281767109 -0.2731126321
[143,] 0.728685770 0.450313668 1.1266184838
[144,] 0.642025307 1.171301280 0.1679143979
[145,] -2.222149342 0.161462448 0.4336098841
[146,] -3.446848403 0.271574549 0.0009307686
[147,] 0.073272229 -1.996158443 -0.2603390799
[148,] 0.582661550 -0.224002791 0.7209979500
[149,] 0.788191013 0.850571007 -0.7408316759
[150,] 0.097930504 -1.153946280 0.9236896632
[151,] 0.605666766 -0.447116588 -0.4300513958
[152,] -0.174602227 -2.264942560 -0.2789962434
[153,] 0.612016349 0.216132886 -0.4236098257
[154,] 0.051087341 -0.054513382 0.8969855314
[155,] 1.259506988 2.286915457 -0.2674728377
[156,] 0.565114526 -0.289918689 0.7509157031
[157,] 0.678961900 0.252101844 -0.2585189068
[158,] -0.881249493 1.001750554 -0.7319003058
[159,] -1.615624245 -0.212803835 0.8371537738
[160,] -2.293727912 -0.460671513 1.5486237540
[161,] 0.094512145 0.281084388 0.8588097999
[162,] 0.805394964 0.558782759 0.6368300349
[163,] 0.645670871 0.138841553 -0.3092860082
[164,] 0.153265083 0.800323003 1.1189536937
[165,] 0.845037222 0.197501958 -1.4787067263
[166,] 0.689788659 0.150364566 0.4479514989
$yscores
[,1] [,2] [,3]
[1,] 0.99548880 -1.4919304015 0.012978600
[2,] -0.38246318 0.5668766240 -0.061643720
[3,] 0.01056649 1.3710623190 0.523669094
[4,] 1.30143928 0.5379739859 2.237098087
[5,] -0.26593597 0.7388745837 -0.302341194
[6,] -0.64276534 0.0328672512 -0.256430130
[7,] 0.41681148 0.8930962377 -0.566008212
[8,] -1.39956960 0.4640204261 0.412069717
[9,] -1.71730672 -0.3863243605 0.116962242
[10,] 0.37390201 0.1182960624 -0.240346738
[11,] -0.36031513 -0.1280384346 -0.673849874
[12,] 0.07353122 0.9590953232 -0.550810541
[13,] 0.64092395 1.0341768135 0.527267078
[14,] -0.71499658 0.1689377480 -0.102530740
[15,] 0.60758637 0.1322606006 -1.771227624
[16,] -1.59633319 -0.3498037594 0.030667169
[17,] 0.45405694 0.4482448777 -0.883792043
[18,] 0.91040855 0.2990403983 2.146432112
[19,] 0.14362006 0.6740658540 0.508037721
[20,] 0.24207592 0.7516818863 0.616261633
[21,] -1.33877222 -0.8065943449 -0.446712041
[22,] 1.09776862 -1.8444686448 -1.797671687
[23,] -0.70825545 -0.3834384233 -0.274248943
[24,] 0.39325418 1.7321376930 -0.256806283
[25,] -0.12052701 0.1709112498 -0.819938360
[26,] 0.73497704 -0.8918860448 1.688700350
[27,] -0.08625841 -2.5145857202 0.503986502
[28,] 0.71236374 -0.1186899569 -0.536413923
[29,] 1.23200158 -0.5235998606 1.142462655
[30,] -1.88720155 -0.3805457601 0.339148332
[31,] 0.49555426 0.9507697740 -0.277229417
[32,] 2.21489065 -0.9987933319 1.437020327
[33,] 1.05068448 -0.1693598144 3.199431199
[34,] -0.93580284 0.4012863780 0.062561306
[35,] 0.14435583 0.8194986352 -0.441440715
[36,] -0.63998281 0.2776504380 0.069808156
[37,] 0.56904302 0.4840396369 1.725208737
[38,] 0.52583450 -1.2875792926 1.620900264
[39,] 1.88216102 0.3448220687 -0.611590728
[40,] -1.74077417 -0.3304776897 0.408156447
[41,] 1.28102749 -0.6658551455 1.112128804
[42,] -0.53950927 0.1339236161 -0.638140144
[43,] -0.54476604 1.0556656103 -0.068126993
[44,] -0.68342381 0.2165675017 -0.520492752
[45,] -1.68764386 -0.6176693609 -0.080383333
[46,] -0.28634003 0.5902835147 0.551630570
[47,] -0.83950067 0.2098029693 0.472340264
[48,] 0.57616740 0.5759231863 -0.515445615
[49,] -0.23306572 0.2331980124 -0.339209596
[50,] 0.93101202 0.0859386241 1.978441286
[51,] 1.77281042 0.3732701713 -0.822153339
[52,] -0.11815970 0.6148599918 -0.759548184
[53,] 1.17846487 -0.0865306865 -1.763157877
[54,] -1.20029994 0.1669817403 -0.060354671
[55,] -2.01606142 -0.5586742759 0.288458937
[56,] 1.36990223 0.3055020285 -0.141121522
[57,] 0.43373308 0.0361109734 1.241274712
[58,] -0.75323966 -0.8854836560 -0.706004914
[59,] -1.80119437 -0.6112718010 0.039986485
[60,] 0.96947544 -0.2199525368 0.317505802
[61,] -1.54932166 -0.1893478363 0.072135202
[62,] 0.36204729 0.2126613354 -1.119495102
[63,] -0.05396543 0.0446359567 -0.016884495
[64,] 1.18551815 -0.3803510439 1.326461067
[65,] 0.63485118 -1.6861198021 1.159430487
[66,] 0.91218685 -0.1367739159 -1.010451086
[67,] 2.77869506 -3.2035633252 1.646371153
[68,] -0.24362502 0.0686061054 -0.955937180
[69,] -1.52449981 0.2488774123 0.300758001
[70,] 0.91774543 0.4720828819 0.230015259
[71,] 1.05174976 1.1525186237 -0.421956379
[72,] 0.00564266 0.6716050328 -0.267100808
[73,] 0.06277401 -0.8653696541 -0.704323193
[74,] -1.31016458 0.1462401154 0.080331436
[75,] -1.53182953 0.1855654463 0.318541312
[76,] 0.16646199 0.9236065382 -0.297826647
[77,] -1.64186725 0.3134298866 0.484625863
[78,] -0.69318657 0.0920340664 0.090872047
[79,] 0.97139418 0.4091396589 -1.316435845
[80,] 1.12325956 -0.0906383366 -0.230533778
[81,] -0.06840811 -2.2874259046 -0.557348935
[82,] 0.30970210 1.9179668364 -0.033934817
[83,] 0.46983209 -0.0976245068 -0.857785775
[84,] 0.90866814 0.2074489319 0.836918059
[85,] 0.04173878 0.1214678769 -1.130932972
[86,] -0.82887756 0.7677466276 0.273165967
[87,] 1.25164437 -3.5564553849 -1.301037894
[88,] -0.44487600 -2.2610073623 0.866424236
[89,] 0.22274223 1.3476369473 -0.117856419
[90,] -0.03190075 0.0136252585 -1.199072697
[91,] -1.09051772 0.6632909606 0.167435777
[92,] -0.17614700 0.1132602180 -0.820548752
[93,] 1.56687859 -0.0156835465 -0.616353084
[94,] 1.56485938 -1.5329234428 -0.565609930
[95,] 0.37918195 0.9643490267 -0.875991214
[96,] -0.48571430 0.7875755368 0.061004297
[97,] 0.73275940 -0.0561414104 3.086278004
[98,] -1.20593446 0.3138076075 0.194652755
[99,] 0.23791584 0.8240657680 2.645181496
[100,] 0.08625153 0.4037268563 -0.699405282
[101,] -1.02267548 -2.7845114130 -0.842504802
[102,] -0.75248639 -1.7026605882 -1.245765745
[103,] 0.92928250 -0.1495872927 -1.483218642
[104,] -0.85789133 -0.2528652898 -0.541441954
[105,] 0.07119575 0.7705116378 0.288717279
[106,] 1.60380239 -0.8988236099 0.243481909
[107,] 1.24844513 1.1982295903 0.624517161
[108,] 1.22309696 -1.2009147947 -1.339371470
[109,] 0.52819630 0.2684378263 0.014628177
[110,] -1.93847500 -0.6336926682 0.171578564
[111,] -1.58532131 -0.0599660102 0.286712480
[112,] 0.90868894 -0.2743869338 2.217252325
[113,] 0.66552627 -0.0169804693 2.907658689
[114,] -1.43275614 0.1187247558 0.143365949
[115,] 0.51193331 1.6508210379 -0.383616252
[116,] 1.10420687 1.1369339176 1.801110544
[117,] -1.08880528 0.7275822811 0.280262115
[118,] -0.92272215 0.2849506719 0.396627454
[119,] -0.05343348 0.5764056074 -0.088187768
[120,] -0.28145824 1.2076283897 0.426491089
[121,] 0.95062837 0.7442914098 -0.659454578
[122,] -0.47890302 0.2272335606 -0.613854680
[123,] -1.63298496 -0.4657048111 -0.036796832
[124,] 0.35637875 2.2960726114 0.112029216
[125,] 0.17702391 0.5411403633 -0.829812613
[126,] 0.81781182 0.1878377343 -1.765244258
[127,] -0.35097146 -1.6129245662 0.223830586
[128,] 0.16466577 0.0780299414 -0.850862875
[129,] 0.25695986 1.1089234157 -0.352012147
[130,] 0.74261284 -0.2037546858 0.245510830
[131,] -0.95144846 -0.8224427174 -0.812688353
[132,] 0.65897380 1.1816709178 -0.748838302
[133,] -0.74184412 -2.8483516901 3.500690029
[134,] -0.42066517 1.9625328486 0.406689722
[135,] -0.68657209 -0.2542676547 -0.703694429
[136,] -1.24505000 -0.0249896032 -0.141440030
[137,] 0.74920664 -1.5664163678 -2.209510640
[138,] 1.26855756 -2.3369564834 -2.260806052
[139,] -0.78190434 0.7921279183 0.002705779
[140,] -1.55507800 0.2032806270 0.345983240
[141,] 0.67510892 1.4098676161 -0.731029140
[142,] 0.57196488 0.7015252318 -0.750786626
[143,] 0.23902673 -0.0878584412 1.207572005
[144,] 0.13483450 -0.1837234730 -0.800666079
[145,] -1.52102106 0.1273012490 0.228632789
[146,] -2.02369418 -0.3486740803 0.453162746
[147,] 0.16760623 0.2254071777 0.550541070
[148,] 1.15753961 -0.7934474946 -0.374290842
[149,] 0.18161879 1.3919632673 -0.112643600
[150,] -0.78767957 -0.4903042411 1.393766913
[151,] 0.69185906 -1.2377531115 0.492603724
[152,] 0.66831720 0.3138452400 -1.242766718
[153,] -0.38499807 0.7399857818 0.091903161
[154,] -0.66637556 0.7340279988 0.431514797
[155,] 1.02950979 1.1447546533 0.710214823
[156,] 0.70321160 -1.9132820743 -0.348179961
[157,] 0.08782945 -0.4634698203 -1.430123887
[158,] 0.30170565 1.4078631704 -0.465015063
[159,] -1.40641616 0.0061963661 0.117144918
[160,] -3.04383768 -2.6398077687 -0.018878829
[161,] -0.72873104 -0.0006936005 -0.346453004
[162,] 0.45155802 0.0883180552 -0.450474999
[163,] 1.30876196 -0.4246339156 -1.927763534
[164,] 0.07380519 0.9641981428 -0.217139487
[165,] -0.14229016 0.1699527414 -0.313236374
[166,] 0.54594559 0.2595643723 0.352467618
$corr.X.xscores
[,1] [,2] [,3]
exports -0.19624979 0.5744516 -0.79466431
imports -0.08477313 -0.1139197 -0.98986656
gdpp -0.94836654 0.3096150 -0.06884361
$corr.Y.xscores
[,1] [,2] [,3]
life_expec -0.5259226 0.3209816 -0.03909825
child_mort 0.4176059 -0.2488482 0.11752471
health -0.4873828 -0.3801229 -0.01000618
$corr.X.yscores
[,1] [,2] [,3]
exports -0.13010050 0.32317539 -0.14629785
imports -0.05619892 -0.06408905 -0.18223462
gdpp -0.62870365 0.17418344 -0.01267412
$corr.Y.yscores
[,1] [,2] [,3]
life_expec -0.7933267 0.5705520 -0.21237488
child_mort 0.6299367 -0.4423334 0.63837367
health -0.7351914 -0.6756770 -0.05435183Berdasarkan output di atas dapat diperoleh informasi bahwa hasil Analisis Korelasi Kanonikal (CCA) menunjukkan adanya tiga dimensi hubungan yang signifikan secara statistik antara set variabel ekonomi (exports, imports, gdpp) dan set variabel sosial (life_expec, child_mort, health) sebagaimana dikonfirmasi oleh Uji Bartlett sebelumnya. Hubungan yang paling dominan dan kuat terdapat pada Pasangan Korelasi Kanonikal Pertama. Variat kanonikal pertama pada set ekonomi (Variat X1) didominasi secara kuat oleh PDB (gdpp, -0.948) yang menunjukkan tingkat PDB yang tinggi. Variat ini berkorelasi kuat dengan Variat kanonikal pertama pada set sosial (Variat Y1), yang didominasi oleh Harapan Hidup (life_expec, -0.526) dan Kesehatan (health, -0.487) serta Kematian Anak (child_mort, 0.418). Secara substansi, hal ini menyimpulkan bahwa negara-negara dengan PDB yang lebih tinggi cenderung memiliki tingkat kesehatan dan harapan hidup yang lebih baik. Dimensi hubungan sekunder dan tersier, yaitu Pasangan Kedua dan Ketiga, juga signifikan, di mana Ekspor (exports) menjadi faktor utama pada Pasangan Kedua yang memengaruhi Harapan Hidup, dan Impor (imports) menjadi faktor utama pada Pasangan Ketiga yang berhubungan dengan Angka Kematian Anak. Meskipun ketiga pasangan signifikan, Pasangan Pertama memberikan kontribusi terbesar terhadap hubungan keseluruhan antar kedua set variabel.
> redundancy(cc)
Redundancies for the X variables & total X canonical redundancy
Xcan1 Xcan2 Xcan3 total X|Y
0.13845 0.04630 0.01826 0.20301
Redundancies for the Y variables & total Y canonical redundancy
Ycan1 Ycan2 Ycan3 total Y|X
0.229510 0.103149 0.005147 0.337807 Berdasarkan output diatas dapat diperoleh beberapa informasi yaitu:
Keragaman himpunan variabel X dapat dijelaskan oleh variabel π1 sebesar 13,84%, variabel U2 sebesar 4,63%, variabel U3 sebesar 1,82% dan dijelaskan bersama oleh π1, π2, dan π3 sebesar 20,30%.
Keragaman himpunan variabel X dapat dijelaskan oleh variabel π1 sebesar 22,95%, variabel Y2 sebesar 10,31%, variabel Y3 0,51% dan dijelaskan bersama oleh π1, π2, dan π3 sebesar 33,78%.
Berdasarkan analisis diatas dapat disimpulkan bahwa:
Adanya tiga dimensi hubungan yang signifikan secara statistik antara set variabel ekonomi (exports, imports, gdpp) dan set variabel sosial (life_expec, child_mort, health) sebagaimana dikonfirmasi oleh Uji Bartlett sebelumnya.Β
Hubungan yang paling dominan dan kuat terdapat pada Pasangan Korelasi Kanonikal Pertama. Variat kanonikal pertama pada set ekonomi (Variat X1) didominasi secara kuat oleh PDB (gdpp, -0.948) yang menunjukkan tingkat PDB yang tinggi. Variat ini berkorelasi kuat dengan Variat kanonikal pertama pada set sosial (Variat Y1), yang didominasi oleh Harapan Hidup (life_expec, -0.526) dan Kesehatan (health, -0.487) serta Kematian Anak (child_mort, 0.418).Β
Secara substansi, hal ini menyimpulkan bahwa negara-negara dengan PDB yang lebih tinggi cenderung memiliki tingkat kesehatan dan harapan hidup yang lebih baik. Dimensi hubungan sekunder dan tersier, yaitu Pasangan Kedua dan Ketiga, juga signifikan, di mana Ekspor (exports) menjadi faktor utama pada Pasangan Kedua yang memengaruhi Harapan Hidup, dan Impor (imports) menjadi faktor utama pada Pasangan Ketiga yang berhubungan dengan Angka Kematian Anak. Meskipun ketiga pasangan signifikan, Pasangan Pertama memberikan kontribusi terbesar terhadap hubungan keseluruhan antar kedua set variabel.
Keragaman himpunan variabel X dapat dijelaskan oleh variabel π1 sebesar 13,84%, variabel U2 sebesar 4,63%, variabel U3 sebesar 1,82% dan dijelaskan bersama oleh π1, π2, dan π3 sebesar 20,30%.
Keragaman himpunan variabel X dapat dijelaskan oleh variabel π1 sebesar 22,95%, variabel Y2 sebesar 10,31%, variabel Y3 0,51% dan dijelaskan bersama oleh π1, π2, dan π3 sebesar 33,78%.
https://www.kaggle.com/datasets/ashydv/country-socioeconomic-data?select=Country-data.csv
Johnson, R. A., & Wichern, D. W. (N.D.). Applied Multivariate Statistical Analysis. Prentice Hall.