R.
semi_join(mtcars, by = "row_id") test_data <- anti_join(mtcars, train_data, by = "row_id") %>% select(-row_id) ols_model <- lm(mpg ~ wt + disp, data = train_data) In this case, we believe that the coefficients for standardized_wt and standardized_disp are likely to be highly correlated because both