minor rev

05_d_svd_mca.Rmd

@@ -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

05_d_svd_mca_code.R

@@ -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

index.Rmd

@@ -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