p6e7p7/intro_to_ml
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor rev

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
05_d_svd_mca.Rmd
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 ### 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} ```{r}
dat <- makeDatasetHousing() dat <- datasetHousing.mca()
``` ```
### Analyse des correspondances du tableau disjonctif complet ### Analyse des correspondances du tableau disjonctif complet

4
05_d_svd_mca_code.R
View File

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

2
index.Rmd
View File

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