intro_to_ml/pad.R

30 lines
990 B
R
Raw Normal View History

# Font /mnt/font/InputMonoNarrow-Regular/20a/font
# rm(list=ls())
# bookdown::render_book()
2022-06-14 12:27:01 -04:00
# :/^\#
2023-01-23 16:04:52 -05:00
# save.image(file="~/tmp/202301231942.Rdata")
# load(file = "~/tmp/202301231942.Rdata")
2022-06-14 12:27:01 -04:00
# bash make_chapter 19_nystroem_approximation.Rmd
# knitr::purl("05_c_svd_ca.Rmd")
# Extrait de 05_c_svd_ca.Rmd
#
# Affichons encore une carte avec les coordonnées principales sur les dimensions n°1 et n°2, mais uniquement pour les profils lignes et les profils colonnes considérés importants.
#
# ```{r}
# selI <- CTRI > (1/I)
# selI12 <- selI[,1] | selI[,2]
# selJ <- CTRJ > (1/J)
# selJ12 <- selJ[,1] | selJ[,2]
# par(pty="s") # square plotting region
# plot(c(F[selI12,1], G[selJ12,1]), c(F[selI12,2], G[selJ12,2]),
# main = "x: d1, y: d2", type = "n",
# xlab="", ylab="", asp = 1, xaxt = "n", yaxt = "n")
# text(c(F[selI12,1], G[selJ12,1]), c(F[selI12,2], G[selJ12,2]),
# c(rownames(P)[selI12], colnames(P)[selJ12]),
# adj = 0, cex = 0.6)
# points(0, 0, pch = 3)
2023-01-02 15:48:45 -05:00
# ```