How to get rid of a for Loop in R and utilize a t apply function in a cross-validation model?

Question

Below is an algorithm for $k$-fold cross-validation with a for loop :

\'\'

library(tidyverse)

default.data <- read.csv("Default.csv&q