<code>> # Make predictions on the test set
> predictions_test <- predict(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Calculate residuals of the test set
> residuals_test <- residuals(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Check the lengths of predictions and residuals
> length(predictions_test)
[1] 29
> length(residuals_test)
[1] 66
</code>
<code>> # Make predictions on the test set
> predictions_test <- predict(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Calculate residuals of the test set
> residuals_test <- residuals(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Check the lengths of predictions and residuals
> length(predictions_test)
[1] 29
> length(residuals_test)
[1] 66
</code>
> # Make predictions on the test set
> predictions_test <- predict(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Calculate residuals of the test set
> residuals_test <- residuals(pmlr_model_no_outliers, newdata = temiller_extr_aug)
> # Check the lengths of predictions and residuals
> length(predictions_test)
[1] 29
> length(residuals_test)
[1] 66
I provide the console output of code that i ran.