You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
990 B
30 lines
990 B
# Font /mnt/font/InputMonoNarrow-Regular/20a/font
|
|
# rm(list=ls())
|
|
# bookdown::render_book()
|
|
# :/^\#
|
|
# save.image(file="~/tmp/202301231942.Rdata")
|
|
# load(file = "~/tmp/202301231942.Rdata")
|
|
|
|
# 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)
|
|
# ```
|