pred_mse <- function(X, y, theta_hat, FUN, ...) { y_hat <- X %*% theta_hat e <- y - y_hat tcrossprod(e) / nrow(X) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.