From a6b386e0cbf9de630f17b8c10971da486000edf4 Mon Sep 17 00:00:00 2001 From: Pierre-Edouard Portier Date: Sat, 19 Feb 2022 18:59:28 +0100 Subject: [PATCH] add title to R files --- 02_moindres_carres.R | 1 + 03_tikhonov.R | 1 + 04_validation_croisee.R | 1 + 12_factorisation_qr.R | 2 ++ 14_geometrie_ridge_svd.R | 2 ++ 15_loocv.R | 2 +- 6 files changed, 8 insertions(+), 1 deletion(-) diff --git a/02_moindres_carres.R b/02_moindres_carres.R index 5a16461..efc33a3 100644 --- a/02_moindres_carres.R +++ b/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) { diff --git a/03_tikhonov.R b/03_tikhonov.R index b7adce8..f363808 100644 --- a/03_tikhonov.R +++ b/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. diff --git a/04_validation_croisee.R b/04_validation_croisee.R index 80c0eaf..36b75c6 100644 --- a/04_validation_croisee.R +++ b/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. diff --git a/12_factorisation_qr.R b/12_factorisation_qr.R index 20945d4..bcd3a66 100644 --- a/12_factorisation_qr.R +++ b/12_factorisation_qr.R @@ -1,3 +1,5 @@ +# 12 Factorisation QR + # Norm 2 Norm <- function(x) { stopifnot(is.numeric(x)) diff --git a/14_geometrie_ridge_svd.R b/14_geometrie_ridge_svd.R index 7868747..55b2cd2 100644 --- a/14_geometrie_ridge_svd.R +++ b/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. diff --git a/15_loocv.R b/15_loocv.R index 8e7fd3c..7733d25 100644 --- a/15_loocv.R +++ b/15_loocv.R @@ -1,4 +1,4 @@ -#loocv +# 15 LOOCV ridge.svd <- function(data, degre) { X <- data$X