R.
ols_prediction_test <- predict(ols_model, newdata = test_data) test_data_ridge <- test_data %>% dplyr::select(standardized_wt, standardized_disp) ridge_prediction_test <- predict(ridge_model, newx = as.matrix(test_data_ridge)) names(ols_prediction_train) <- "Predicted" names(ridge_prediction_train)