K-Fold-Cross-Validation-in-R