add title to R files

02_moindres_carres.R

@@ -1,3 +1,4 @@
+# 02 Moindres carrés
 # Résolution du système linéaire correspondant à la matrice de Gram pour un
 # polynôme de degré fixé.
 polyreg2 <- function(data, degre) {

03_tikhonov.R

@@ -1,3 +1,4 @@
+# 03 Tikhonov
 # Résolution d'un système linéaire correspondant à la matrice de Gram pour
 # un polynôme de degré fixé et avec l'ajout d'un facteur de régularisation en
 # norme L2 dont l'importance est contrôlée par l'hyperparamètre alpha.

04_validation_croisee.R

@@ -1,3 +1,4 @@
+# 04 Validation croisée
 # Séparer le jeu de données en un jeu d'entraînement et un jeu de test
 # INPUT : jeu de données initial et proportion des données conservées pour
 #         l'entraînement.

12_factorisation_qr.R

@@ -1,3 +1,5 @@
+# 12 Factorisation QR
+
 # Norm 2
 Norm <- function(x) {
   stopifnot(is.numeric(x))

14_geometrie_ridge_svd.R

@@ -1,3 +1,5 @@
+# 14 Géométrie Ridge
+
 # Séparer le jeu de données en un jeu d'entraînement et un jeu de test
 # INPUT : jeu de données initial et proportion des données conservées pour
 #         l'entraînement.

15_loocv.R

@@ -1,4 +1,4 @@
-#loocv
+# 15 LOOCV
 
 ridge.svd <- function(data, degre) {
   X <- data$X