我想在R中编写一个计算岭回归标准的方程

Question

标准由附加图像中的以下功能确定。 我已经在这里工作了一段时间，但这就是我所拥有的。我需要

ridge.crit <- function(y, X, lambda, beta){
n <- length(y) #number of rows
p <- ncol(X) #number of predictor variables
  for(i in 1:n){
    (y[i] - beta[1] - sum(beta[2:p+1] * X[i,]))^2
##WE GOTTA ADD THEM TOGETHER AND STORE FINAL ANSWER AND RETURN IT!
    }
  return(final_answer)
}