minor rev

This commit is contained in:
Pierre-Edouard Portier 2023-01-22 21:24:45 +01:00
parent dfea1a26f2
commit 7a656f6597
3 changed files with 6 additions and 4 deletions

View File

@ -490,10 +490,10 @@ Nous considérons `c_house_value` comme variable supplémentaire. C'est-à-dire,
### Synthèse des transformations opérées sur le jeu de données
Nous reprenons dans une fonction `makeDatasetHousing` (voir code source en annexe de ce chapitre) toutes les transformations opérées sur le jeu de données.
Nous reprenons dans une fonction `datasetHousing.mca` (voir code source en annexe de ce chapitre) toutes les transformations opérées sur le jeu de données.
```{r}
dat <- makeDatasetHousing()
dat <- datasetHousing.mca()
```
### Analyse des correspondances du tableau disjonctif complet

View File

@ -56,7 +56,7 @@ function(cat, mod)
# pre-processing for exploratory analytics of the housing dataset
makeDatasetHousing <-
datasetHousing.mca <-
function()
{
# chargement du jeu de données
@ -180,6 +180,8 @@ function(dat, nclst = 100)
{
# Indicator matrix
Z <- onehot_enc(dat$dat)
lev_n <- unlist(lapply(dat$dat, nlevels))
n <- cumsum(lev_n)
Z_sup_min <- n[dat$supvar[1] - 1] + 1
Z_sup_max <- n[dat$supvar[length(dat$supvar)]]
Z_sup_ind <- Z_sup_min : Z_sup_max

View File

@ -4,7 +4,7 @@ author: "Pierre-Edouard Portier"
documentclass: book
geometry: margin=2cm
fontsize: 12pt
date: "15 Jan 2023"
date: "22 Jan 2023"
toc: true
classoption: fleqn
bibliography: intro_to_ml.bib