arthur/ArtStudies
1
0
Fork 0
mirror of https://github.com/ArthurDanjou/ArtStudies.git synced 2026-01-30 05:28:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

Correction de commentaires et amélioration de la fonction elbow_wss pour une meilleure clarté

Browse Source
This commit is contained in:
Arthur Danjou
2026-01-29 18:41:24 +01:00
parent 5d0c1d2b4e
commit d9c00c5159
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
M2/Clustering In Practice/compression_image.R
View File

@@ -88,7 +88,7 @@ cat("MSE =", mse_matrix, "\n")
# Règle du coude (Elbow Method)
# tracez l'évolution de la Within-Cluster Sum of Squares (WCSS) en fonction de $k$
# tracez l'évolution de la Within-Cluster Sum of Squares en fonction de $k$
# Prnde k = 2 à 32
# A partir de quel $k$ le gain visuel devient-il négligeable pour l'œil humain ?
@@ -123,7 +123,7 @@ elbow_wss <- function(X, ks = 2:32, nstart = 10, scale_data = FALSE) {
main = "Méthode du coude (k-means)"
)
grid()
# invisible(data.frame(k = ks, WSS = wss))
invisible(data.frame(k = ks, WSS = wss))
}
# Exemple d'utilisation :
@@ -165,7 +165,7 @@ elbow_wss_safe <- function(X, ks = 2:32, nstart = 20, scale_data = FALSE, seed =
)
axis(1, at = ks)
grid()
# invisible(data.frame(k = ks, WSS = wss))
invisible(data.frame(k = ks, WSS = wss))
}
# Exemple :
@@ -182,6 +182,8 @@ jpeg("./data/image_compressed.jpg")
plot(0, 0, type = "n", axes = FALSE, ann = FALSE)
rasterImage(img_compressed, -1, -1, 1, 1)
dev.off()
info <- file.info("./data/PampasGrass.jpg")
(taille_octets_reelle <- info$size / 1024)