estudiante

> ### Alaisis Competitividad

Subimos la base de datos a R

> setwd("C:/AM/TUTORIA")
> esmeraldas=read.table("esmeraldas.csv", header=TRUE, sep=";")

Observamos nuestra base de datos

>View(esmeraldas)

Componentes Principales

> plot(esmeraldas)

























> names(esmeraldas)
[1] "Rama_actividad.Primer.nivel." "Esmeraldas""Eloy_Alfaro"
[4] "Muisne" "Quininde" "San_Lorenzo"
[7] "Atacames" "Rio_Verde""La_Concordia"
> pairs(esmeraldas[,2:9])





































Coeficiente de Pearson


> cor(esmeraldas[,2:9]) #Matriz decorrelacion
Esmeraldas Eloy_Alfaro Muisne Quininde San_Lorenzo Atacames Rio_Verde La_Concordia
Esmeraldas 1.0000000 0.6021852 0.6131908 0.4896176 0.6039961 0.8428832 0.58889880.5901250
Eloy_Alfaro 0.6021852 1.0000000 0.9948911 0.9644565 0.9860191 0.8178909 0.9986785 0.8934509
Muisne 0.6131908 0.9948911 1.0000000 0.9675497 0.9867798 0.83608170.9952959 0.9053561
Quininde 0.4896176 0.9644565 0.9675497 1.0000000 0.9868531 0.7584617 0.9691896 0.9562740
San_Lorenzo 0.6039961 0.9860191 0.9867798 0.9868531 1.0000000 0.82101430.9858832 0.9502181
Atacames 0.8428832 0.8178909 0.8360817 0.7584617 0.8210143 1.0000000 0.8205213 0.8073218
Rio_Verde 0.5888988 0.9986785 0.9952959 0.9691896 0.98588320.8205213 1.0000000 0.8994607
La_Concordia 0.5901250 0.8934509 0.9053561 0.9562740 0.9502181 0.8073218 0.8994607 1.0000000


Completamos los Casos si es necesario

>esmeraldascomp=complete.cases(esmeraldas) #completamos los casos de la base














Creamos los Componentes

> esmeraldas=princomp(esmeraldas[esmeraldascomp,2:9], cor=T) #Calculo de la matriz de...