ML1/ML1_02_moindres_carres.R

8 lines
256 B
R

# Résolution du système linéaire correspondant à la matrice de Gram pour un
# polynôme de degré fixé.
polyreg2 <- function(data, degre) {
xs <- c(data$X)
A = outer(xs, 0:degre, "^")
gram = t(A) %*% A
solve(gram, as.vector(t(A) %*% data$Y))
}