Script et sorties R de la vidéo du cours.


# Chargement de FactoMineR
```{r}
library(FactoMineR)
```

# Importation du jeu de données depuis le site

```{r eval=FALSE}
Nobel = read.table("AnaDo_JeuDonnees_Nobel_avecMaths.csv", header=TRUE, sep=";", 
      row.names=1, ,check.names=FALSE)
summary(Nobel)
```

```{r echo=FALSE}
Nobel <- read.table("C:/Users/houee/AOBOX/AnaDo_JeuDonnees_Nobel_avecMaths.csv", header=TRUE, row.names=1, sep=";", fileEncoding="latin1")
summary(Nobel)
```

# Test du Chi²
```{r}
res.test.chi2 <- chisq.test(Nobel)
res.test.chi2
```

# L'AFC : les sorties et le graphe par défaut
```{r}
res.ca=CA(Nobel[1:8,])
summary(res.ca)
barplot(res.ca$eig[,2],main="Valeurs propres", names.arg=1:nrow(res.ca$eig))
```

# Les graphiques des lignes et des colonnes séparés
```{r}
plot(res.ca, invisible="col",title="Représentation des lignes")
plot(res.ca, invisible="row",title="Représentation des colonnes")
```

# AFC avec colonne supplémentaire
```{r}
res.ca=CA(Nobel, col.sup=7)
```

