Commit 3ecb77e6 authored by Bakaniko's avatar Bakaniko Committed by MathieuGO

fixing typo en errors in code

parent 68378b99
......@@ -33,6 +33,6 @@ COMPUTADORA,ordinateur
TELEFONO,ligne de téléphone terrestre
CELULAR, téléphone mobile
INTERNET,accès internet
TENENCIA,propiétaire du logement
TENENCIA,propriétaire du logement
NUMPERS,nombre de résidents du logement
TIPOHOG,type de foyer
......@@ -3,6 +3,19 @@ title: "StatsViviendaPersona15"
output: html_document
---
```{r library}
library(cluster)
library(cartography)
library(reshape2)
library(ggplot2)
library(rgdal)
#install.packages("cartography")
#install.packages("ggplot2")
#install.packages("reshape2")
#install.packages("cluster")
source("http://www.sthda.com/upload/rquery_cormat.r")
```
# Création du taux d'équipement des ménages par municipalité
```{r read.csv}
......@@ -24,11 +37,6 @@ TabCor <- as.data.frame(cor(tab_Equipement_SI))
Le tableau "TabCor" contient l'ensemble des coefficient de corrélation des variables d'équipement entre elles.
```{r source}
source("http://www.sthda.com/upload/rquery_cormat.r")
```
```{r rquery.cormat}
TabCorAttrib<- rquery.cormat(TabCor, type="flatten", graph=FALSE)
```
......@@ -43,7 +51,7 @@ Les scores de la valeur-p sont extrêment faible, ce qui indique que les coeffic
rquery.cormat(tab_Equipement_SI)
```
L'ensemble des variables d'équipements sont extrêment corrélées entre elles. Les coefficients de corrélations sont supérieurs à 0.9 dans l'ensemble des cas. La construction d'un indicateur qui regroupe les variablements d'équipement permettraient de résumer le taux d'équipement des ménages par municipalités.
L'ensemble des variables d'équipements sont extrêment corrélées entre elles. Les coefficients de corrélations sont supérieurs à 0.9 dans l'ensemble des cas. La construction d'un indicateur qui regroupe les variables d'équipement permettraient de résumer le taux d'équipement des ménages par municipalités.
Cet indicateur sera relatif au contexte des municipalités de l'entité administrative de Mexico car il s'appuie sur les résultats statistiques obtenus pour l'étude de cet espace géographique.
......@@ -109,7 +117,7 @@ NbrOccupant<-(Tab_NUMPERS[,1]*1/(rowSums(Tab_NUMPERS)))+
```
# Calcule du nombre moyen de pièce par vivienda
# Calcule du nombre d'occupant moyen de pièce par vivienda
```{r}
Tab_TOTCUART <- tab_frequence_2015_viv[,c(16:40)]
......@@ -179,13 +187,6 @@ Data <- cbind(Tab_NIVACAD,TxEquipement)
M <-as.data.frame(scale(Data ))
```
```{r install.packages}
install.packages("cluster")
```
```{r library}
library(cluster)
```
°) Classification des variables par rapport à leur distance euclidenne
```{r agnes}
......@@ -235,26 +236,15 @@ colnames(ClusProfile)[9] <-"Maestría"
colnames(ClusProfile)[10] <-"Doctorado"
```
```{r install.packages}
install.packages("reshape2")
```
```{r library}
library(reshape2)
```
°) La fonction melt permet de transposer la modalité Cluster en une variable à part entière
```{r melt}
clusLong <-melt(ClusProfile, id.vars = "CLUSTER")
```
```{r install.packages}
install.packages("ggplot2")
```
```{r library}
library(ggplot2)
```
°) La série d'histogrammes suivante décrit la composition des différentes classes créées suite à la CAH. Elle montre la moyenne des valeurs centrées-réduites prises par chaque variable qui compose les classes crées (Cluster).
```{r ggplot}
ggplot(clusLong) +
......@@ -272,10 +262,6 @@ DataMap <- data.frame(tab_freq_pourc_pers_viv$code_mun, row.names(M), M$Cluster)
colnames(DataMap)[1] <-"Code_Mun"
```
```{r install.packages}
install.packages("rgdal")
```
```{r library}
library(rgdal)
```
......@@ -290,16 +276,13 @@ projection <- "+proj=utm +zone=14 +datum=WGS84 +units=m +no_defs + ellps=WGS84"
```
```{r spTransform}
Municipios_2015 <- spTransform(Mexico_ZMVM, projection)
Municipios_2015 <- spTransform(Municipios_2015, projection)
```
```{r paste}
Municipios_2015$ID <- paste(Municipios_2015$CVE_ENT, Municipios_2015$CVE_MUN, sep="")
```
```{r installe.packages}
install.packages("cartography")
```
......@@ -307,7 +290,10 @@ install.packages("cartography")
library(cartography)
```
```{r installe.packages}
install.packages("cartography")
```
```{r rCarto}
......@@ -331,10 +317,6 @@ layoutLayer(title = "CAH Municipios de Mexico: Niveau d'étude et taux d'équipe
north = TRUE)
```
```{r installe.packages}
install.packages("factoextra")
```
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment