K Fold Cross Validation In R Without Caret. The k-fold cross valid