Instrucciones: Trabjaran con la base de datos “Size of the economy”.
Esta base de datos contiene dos grupos de preguntas medidas en 210
países. Estos dos grupos son: Población (2:4) y PIB (5:7)
Primero descargamos nuestra base de datos:
Añadimos cero en los espacios de la base de datos donde no había
información.
Podemos calcular las matrices de covarianzas que se necesitan para el
desarrollo del problema:
Matriz de covarianza para variables sobre población:
Matriz de covarianza para variables sobre PIB:
Creamos gráficas de correlación:


Creamos gráfica para ver correlación entre ambos grupos de
variables:

Calculamos las matrices de covarianzas que se necesitan para el
desarrollo del problema:
## Population (millions) Surface_area Population_density
## Population (millions) 450827.88 6908998 -31365.23
## Surface_area 6908997.98 123810013 -712359.99
## Population_density -31365.23 -712360 2547699.35
## Gross_national_income Purchasing_power_parity
## Gross_national_income 7.551659e+07 1.084456e+08
## Purchasing_power_parity 1.084456e+08 1.611503e+08
## Gross_domestic_product 2.695128e+03 4.157179e+03
## Gross_domestic_product
## Gross_national_income 2695.12818
## Purchasing_power_parity 4157.17853
## Gross_domestic_product 37.82011
## Gross_national_income Purchasing_power_parity
## Population (millions) 4868796.3 7790496.4
## Surface_area 87827187.6 134251319.2
## Population_density -435079.5 -641029.8
## Gross_domestic_product
## Population (millions) 162.9074
## Surface_area 2171.9605
## Population_density 2029.5721
## Population (millions) Surface_area Population_density
## Gross_national_income 4868796.2716 87827187.58 -435079.456
## Purchasing_power_parity 7790496.3694 134251319.18 -641029.842
## Gross_domestic_product 162.9074 2171.96 2029.572
Correlaciones canónicas:
Encontramos los valores propios de cualquiera de las matrices
cuadradas A y B:
Con los valores propios, podemos ahora calcular las correspondientes
correlaciones canónicas, las cuales serán las raíces cuadradas de los
valores propios:
## [1] 0.9843404 0.5406380 0.2079000
Para este problema, las correlaciones canónicas son: \(r1=0.9843404\), \(r2=0.5406380\), \(r3=0.2079\).
Vectores canónicos:
Encontramos los vectores propios de cada matriz cuadrada A y B:
## [,1] [,2] [,3]
## [1,] 0.9995440861 0.9980875682 -0.15327976
## [2,] 0.0301925869 -0.0618114289 0.01443926
## [3,] -0.0001660924 0.0007438929 0.98807734
## [,1] [,2] [,3]
## [1,] 0.06959329 -0.09285289 0.0001682144
## [2,] -0.07571138 0.05894005 -0.0001260740
## [3,] 0.99469823 0.99393381 0.9999999779
Para convertirlos en vectores canónicos, debe cumplir la restricción
dada: \(a^tS_{xx} a=1\) y \(b^tS_{yy} b=1\)
Calculamos la correlación canónica y los vectores canónicos:
## $xcoef
## [,1] [,2] [,3]
## Population (millions) -1.009533e-03 3.780962e-03 -9.728749e-05
## Surface_area -3.049430e-05 -2.341545e-04 9.164679e-06
## Population_density 1.677522e-07 2.818020e-06 6.271380e-04
##
## $ycoef
## [,1] [,2] [,3]
## Gross_national_income 0.0001818379 -0.0006001359 2.736835e-05
## Purchasing_power_parity -0.0001978237 0.0003809471 -2.051215e-05
## Gross_domestic_product 0.0025990131 0.0064240901 1.626992e-01
Estos coeficientes canónicos se interpretan de manera análoga a la
interpretación de los coeficientes de regresión. Por ejemplo, el aumento
de una unidad de la variable “Population (millions)”, conduce a una
disminución de 1.009533e-03 en la primera variable canónica del conjunto
1, cuando todas las demás permanecen constantes. Otro ejemplo, el
aumento de una unidad de la variable “Purchasing_power_parity”, conduce
en un aumento de 0.0003809471 en la segunda variable canónica del
conjunto 2, cuando todas las demás permanecen constantes.
Creamos los vectores canónicos para poder calcular las variables
canónicas:
## [,1]
## [1,] 980309.6
## [,1]
## [1,] 3262791
Calculamos las variables canónicas:
## [1] 1.009533e-03 3.049430e-05 -1.677522e-07
## [1] 3.852767e-05 -4.191471e-05 5.506767e-04
Finalmente, podemos construir las variables canónicas:
\(U1\) = \(1.009533e-03\) population \(+\) \(3.049430e-05\) Surface area \(-\) \(1.677522e-07\) Population density
\(V1\) = \(3.852767e-05\) Gross national income \(-\) \(4.191471e-05\) Purchasing power parity
\(+\) \(5.506767e-04\) Gross domestic product
De igual manera, se debe construir las faltantes dos parejas de
variables canónicas:
## Wilks' Lambda, using F-approximation (Rao's F):
## stat approx df1 df2 p.value
## 1 to 3: 0.02104081 214.487595 9 496.633 0.000000e+00
## 2 to 3: 0.67712160 22.063422 4 410.000 2.220446e-16
## 3 to 3: 0.95677758 9.306048 1 206.000 2.584218e-03
Aplicando la prueba de Wilk, podemos observar que según los
resultados de p-value las 3 dimensiones canónicas son estadísticamente
significativas.

Podemos notar que las variables están bastante correlacionadas, la
única que se diferencia parcialmente de las demás es la variable
“Population (millions)”.
LS0tDQp0aXRsZTogIkV4YW1lbiBHcnVwYWwgMjogQW7DoWxpc2lzIGRlIENvcnJlbGFjacOzbiBDYW7Ds25pY2EgKENDQSkiDQphdXRob3I6ICJUYXRpYW5hIE0uIFZpemNhcnJvbmRvIENvcmRvdmEsIExheXphIE4uIEZyaWFzIFJpdmVyYSB5IEJlcm5pZSBaLiBWZWxleiBDaW50cm9uIg0KZGF0ZTogImByIFN5cy5EYXRlKClgIg0Kb3V0cHV0OiANCiAgaHRtbF9kb2N1bWVudDoNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQotLS0NCg0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoDQoJZWNobyA9IEZBTFNFLA0KCW1lc3NhZ2UgPSBGQUxTRSwNCgl3YXJuaW5nID0gRkFMU0UNCikNCmBgYA0KDQojIyMjIyBJbnN0cnVjY2lvbmVzOiBUcmFiamFyYW4gY29uIGxhIGJhc2UgZGUgZGF0b3MgIlNpemUgb2YgdGhlIGVjb25vbXkiLiBFc3RhIGJhc2UgZGUgZGF0b3MgY29udGllbmUgZG9zIGdydXBvcyBkZSBwcmVndW50YXMgbWVkaWRhcyBlbiAyMTAgcGHDrXNlcy4gRXN0b3MgZG9zIGdydXBvcyBzb246IFBvYmxhY2nDs24gKDI6NCkgeSBQSUIgKDU6NykNCg0KUHJpbWVybyBkZXNjYXJnYW1vcyBudWVzdHJhIGJhc2UgZGUgZGF0b3M6IA0KDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShyZWFkeGwpDQpEYXRhIDwtIHJlYWRfZXhjZWwoIlNpemUgb2YgdGhlIGVjb25vbXkueGxzeCIpDQoNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoRGF0YSkNCmBgYA0KDQpBw7FhZGltb3MgY2VybyBlbiBsb3MgZXNwYWNpb3MgZGUgbGEgYmFzZSBkZSBkYXRvcyBkb25kZSBubyBoYWLDrWEgaW5mb3JtYWNpw7NuLiANCg0KUG9kZW1vcyBjYWxjdWxhciBsYXMgbWF0cmljZXMgZGUgY292YXJpYW56YXMgcXVlIHNlIG5lY2VzaXRhbiBwYXJhIGVsIGRlc2Fycm9sbG8gZGVsIHByb2JsZW1hOiANCg0KYGBge3J9DQpsaWJyYXJ5KERUKQ0KeCAgIDwtIERhdGFbLCgyOjQpXQ0KeSAgIDwtIERhdGFbLCg1OjcpXQ0KYGBgDQoNCk1hdHJpeiBkZSBjb3ZhcmlhbnphIHBhcmEgdmFyaWFibGVzIHNvYnJlIHBvYmxhY2nDs246DQoNCmBgYHtyfQ0KZGF0YXRhYmxlKHgpDQpgYGANCg0KTWF0cml6IGRlIGNvdmFyaWFuemEgcGFyYSB2YXJpYWJsZXMgc29icmUgUElCOg0KDQpgYGB7cn0NCmRhdGF0YWJsZSh5KQ0KYGBgDQoNCkNyZWFtb3MgZ3LDoWZpY2FzIGRlIGNvcnJlbGFjacOzbjogDQoNCmBgYHtyfQ0KbGlicmFyeShHR2FsbHkpDQpnZ3BhaXJzKHgsIHRpdGxlID0gIlZhcmlhYmxlcyBQb2JsYWNpw7NuIikNCmBgYA0KDQpgYGB7cn0NCmxpYnJhcnkoR0dhbGx5KQ0KZ2dwYWlycyh5LCB0aXRsZSA9ICJWYXJpYWJsZXMgUElCIikNCmBgYA0KDQpDcmVhbW9zIGdyw6FmaWNhIHBhcmEgdmVyIGNvcnJlbGFjacOzbiBlbnRyZSBhbWJvcyBncnVwb3MgZGUgdmFyaWFibGVzOg0KDQpgYGB7cn0NCmdnZHVvKERhdGEsY29sdW1uc1ggPSAyOjQsY29sdW1uc1kgPSA1OjcsDQogICAgICB0eXBlcyA9IGxpc3QoY29udGludW91cyA9ICJzbW9vdGhfbG0iKSwNCiAgICAgIHRpdGxlID0gIkNvcnJlbGFjacOzbiBlbnRyZSB2YXJpYWJsZXMgZGUgcG9ibGFjacOzbiB5IFBJQiIsKQ0KYGBgDQoNCkNhbGN1bGFtb3MgbGFzIG1hdHJpY2VzIGRlIGNvdmFyaWFuemFzIHF1ZSBzZSBuZWNlc2l0YW4gcGFyYSBlbCBkZXNhcnJvbGxvIGRlbCBwcm9ibGVtYToNCg0KYGBge3J9DQpTeHggPC0gY292KHgpDQpTeHgNCg0KU3l5IDwtIGNvdih5KQ0KU3l5DQoNCg0KU3h5IDwtIGNvdih4LHkpDQpTeHkNCg0KU3l4IDwtIGNvdih5LHgpDQpTeXgNCmBgYA0KDQoqKkNvcnJlbGFjaW9uZXMgY2Fuw7NuaWNhcyoqOiANCg0KRW5jb250cmFtb3MgbG9zIHZhbG9yZXMgcHJvcGlvcyBkZSBjdWFscXVpZXJhIGRlIGxhcyBtYXRyaWNlcyBjdWFkcmFkYXMgQSB5IEI6DQoNCmBgYHtyfQ0KQSA8LSBzb2x2ZShTeHgpJSolU3h5JSolc29sdmUoU3l5KSUqJVN5eA0KQiA8LSBzb2x2ZShTeXkpJSolU3l4JSolc29sdmUoU3h4KSUqJVN4eQ0KDQojIFZhbG9yZXMgcHJvcGlvcyANClZhbG9yZXNfQSA8LSBlaWdlbihBKSR2YWx1ZXMNCmBgYA0KDQpDb24gbG9zIHZhbG9yZXMgcHJvcGlvcywgcG9kZW1vcyBhaG9yYSBjYWxjdWxhciBsYXMgY29ycmVzcG9uZGllbnRlcyBjb3JyZWxhY2lvbmVzIGNhbsOzbmljYXMsIGxhcyBjdWFsZXMgc2Vyw6FuIGxhcyByYcOtY2VzIGN1YWRyYWRhcyBkZSBsb3MgdmFsb3JlcyBwcm9waW9zOg0KDQpgYGB7cn0NCnIgPC0gc3FydChWYWxvcmVzX0EpDQpyDQpgYGANCg0KUGFyYSBlc3RlIHByb2JsZW1hLCBsYXMgY29ycmVsYWNpb25lcyBjYW7Ds25pY2FzIHNvbjoNCiRyMT0wLjk4NDM0MDQkLCAkcjI9MC41NDA2MzgwJCwgJHIzPTAuMjA3OSQuDQoNCioqVmVjdG9yZXMgY2Fuw7NuaWNvcyoqOg0KDQpFbmNvbnRyYW1vcyBsb3MgdmVjdG9yZXMgcHJvcGlvcyBkZSBjYWRhIG1hdHJpeiBjdWFkcmFkYSBBICB5IEI6DQoNCmBgYHtyfQ0KIyBWZWN0b3JlcyBwcm9waW9zIA0KVmVjdG9yZXNfQSA8LSBlaWdlbihBKSR2ZWN0b3JzDQpWZWN0b3Jlc19BDQpgYGANCg0KYGBge3J9DQpWZWN0b3Jlc19CIDwtIGVpZ2VuKEIpJHZlY3RvcnMNClZlY3RvcmVzX0INCmBgYA0KDQpQYXJhIGNvbnZlcnRpcmxvcyBlbiB2ZWN0b3JlcyBjYW7Ds25pY29zLCBkZWJlIGN1bXBsaXIgbGEgcmVzdHJpY2Npw7NuIGRhZGE6DQokYV50U197eHh9IGE9MSQgeSAkYl50U197eXl9IGI9MSQNCg0KDQpDYWxjdWxhbW9zIGxhIGNvcnJlbGFjacOzbiBjYW7Ds25pY2EgeSBsb3MgdmVjdG9yZXMgY2Fuw7NuaWNvczogDQoNCmBgYHtyfQ0KbGlicmFyeShDQ0EpDQpjY2wgPC0gY2MoeCx5KQ0KYGBgDQoNCmBgYHtyfQ0KY2NsWzM6NF0NCmBgYA0KDQpFc3RvcyBjb2VmaWNpZW50ZXMgY2Fuw7NuaWNvcyBzZSBpbnRlcnByZXRhbiBkZSBtYW5lcmEgYW7DoWxvZ2EgYSBsYSBpbnRlcnByZXRhY2nDs24gZGUgbG9zIGNvZWZpY2llbnRlcyBkZSByZWdyZXNpw7NuLiBQb3IgZWplbXBsbywgZWwgYXVtZW50byBkZSB1bmEgdW5pZGFkIGRlIGxhIHZhcmlhYmxlICJQb3B1bGF0aW9uIChtaWxsaW9ucykiLCBjb25kdWNlIGEgdW5hIGRpc21pbnVjacOzbiBkZSAxLjAwOTUzM2UtMDMgZW4gbGEgcHJpbWVyYSB2YXJpYWJsZSBjYW7Ds25pY2EgZGVsIGNvbmp1bnRvIDEsIGN1YW5kbyB0b2RhcyBsYXMgZGVtw6FzIHBlcm1hbmVjZW4gY29uc3RhbnRlcy4gT3RybyBlamVtcGxvLCBlbCBhdW1lbnRvIGRlIHVuYSB1bmlkYWQgZGUgbGEgdmFyaWFibGUgIlB1cmNoYXNpbmdfcG93ZXJfcGFyaXR5IiwgY29uZHVjZSBlbiB1biBhdW1lbnRvIGRlIDAuMDAwMzgwOTQ3MSBlbiBsYSBzZWd1bmRhIHZhcmlhYmxlIGNhbsOzbmljYSBkZWwgY29uanVudG8gMiwgY3VhbmRvIHRvZGFzIGxhcyBkZW3DoXMgcGVybWFuZWNlbiBjb25zdGFudGVzLg0KDQpDcmVhbW9zIGxvcyB2ZWN0b3JlcyBjYW7Ds25pY29zIHBhcmEgcG9kZXIgY2FsY3VsYXIgbGFzIHZhcmlhYmxlcyBjYW7Ds25pY2FzOg0KDQpgYGB7cn0NCmFfMSAgIDwtIFZlY3RvcmVzX0FbLDFdDQpkZW4xYSA8LSBhXzElKiVTeHglKiVhXzENCmRlbjFhDQpgYGANCg0KYGBge3J9DQpiXzEgICA8LSBWZWN0b3Jlc19CWywxXQ0KZGVuMWIgPC0gYl8xJSolU3h4JSolYl8xDQpkZW4xYg0KYGBgDQoNCkNhbGN1bGFtb3MgbGFzIHZhcmlhYmxlcyBjYW7Ds25pY2FzOg0KDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KYV8xY2FuIDwtIGFfMS9zcXJ0KGRlbjFhKQ0KYV8xY2FuDQpgYGANCg0KYGBge3IgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCmJfMWNhbiA8LSBiXzEvc3FydChkZW4xYikNCmJfMWNhbg0KYGBgDQoNCkZpbmFsbWVudGUsIHBvZGVtb3MgY29uc3RydWlyIGxhcyB2YXJpYWJsZXMgY2Fuw7NuaWNhczoNCg0KJFUxJCA9ICQxLjAwOTUzM2UtMDMkIHBvcHVsYXRpb24gJCskICQzLjA0OTQzMGUtMDUkIFN1cmZhY2UgYXJlYSAkLSQgJDEuNjc3NTIyZS0wNyQgUG9wdWxhdGlvbiBkZW5zaXR5DQoNCiRWMSQgPSAkMy44NTI3NjdlLTA1JCBHcm9zcyBuYXRpb25hbCBpbmNvbWUgJC0kICQ0LjE5MTQ3MWUtMDUkIFB1cmNoYXNpbmcgcG93ZXIgcGFyaXR5ICQrJCAkNS41MDY3NjdlLTA0JCBHcm9zcyBkb21lc3RpYyBwcm9kdWN0DQoNCkRlIGlndWFsIG1hbmVyYSwgc2UgZGViZSBjb25zdHJ1aXIgbGFzIGZhbHRhbnRlcyBkb3MgcGFyZWphcyBkZSB2YXJpYWJsZXMgY2Fuw7NuaWNhczoNCg0KYGBge3J9DQpsaWJyYXJ5KENDUCkNCg0KY2MyIDwtIGNjKHgseSkgDQpyaG8gIDwtICBjYzIkY29yIA0KDQpuICA8LSAgZGltKERhdGEpWzFdIA0KcCAgPC0gIGxlbmd0aCh4KSANCnEgIDwtICBsZW5ndGgoeSkgDQoNCnAuYXN5bShyaG8sIG4sIHAsIHEsIHRzdGF0ID0iV2lsa3MiKQ0KYGBgDQoNCkFwbGljYW5kbyBsYSBwcnVlYmEgZGUgV2lsaywgcG9kZW1vcyBvYnNlcnZhciBxdWUgc2Vnw7puIGxvcyByZXN1bHRhZG9zIGRlIHAtdmFsdWUgbGFzIDMgZGltZW5zaW9uZXMgY2Fuw7NuaWNhcyBzb24gZXN0YWTDrXN0aWNhbWVudGUgc2lnbmlmaWNhdGl2YXMuDQoNCmBgYHtyfQ0KDQpwbHQuY2MoY2NsLCB2YXIubGFiZWwgPSBUUlVFLCBkMSA9IDEsIGQyID0gMiwgdHlwZSA9ICJiIikNCmBgYA0KDQpQb2RlbW9zIG5vdGFyIHF1ZSBsYXMgdmFyaWFibGVzIGVzdMOhbiBiYXN0YW50ZSBjb3JyZWxhY2lvbmFkYXMsIGxhIMO6bmljYSBxdWUgc2UgZGlmZXJlbmNpYSBwYXJjaWFsbWVudGUgZGUgbGFzIGRlbcOhcyBlcyBsYSB2YXJpYWJsZSAiUG9wdWxhdGlvbiAobWlsbGlvbnMpIi4gDQo=