R/pred.R

Defines functions pred_mse

pred_mse <- function(X, y, theta_hat, FUN, ...) {
  y_hat <- X %*% theta_hat
  e <- y - y_hat
  tcrossprod(e) / nrow(X)
}
jeksterslabds/jeksterslabRds documentation built on July 16, 2020, 3:41 p.m.