# 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) # ```