Obtaining Cross-Validated r-Square Values from Linear Models in R Using k-Fold Cross-Validation