diff --git a/15_loocv.R b/15_loocv.R index 7733d25..8b9ab34 100644 --- a/15_loocv.R +++ b/15_loocv.R @@ -22,7 +22,7 @@ ridge.svd <- function(data, degre) { ridge.loocv <- function(data, deg, lambdas) { errs <- double(length(lambdas)) - coefs <- matrix(data = NA, nrow = nrow(data$X), ncol = 1+deg) + coefs <- matrix(data = NA, nrow = length(lambdas), ncol = 1+deg) ridge <- ridge.svd(data, deg) idx <- 1 for(lambda in lambdas) {