r - Rクロスバリデーション

Question

交差検証を行っています。そこで、データを 10 個のフォールドに分割したいと考えました。誰かが次のコードを投稿しています。

f_K_fold <- function(Nobs,K=10){
    rs <- runif(Nobs)
    id <- seq(Nobs)[order(rs)]
    k <- as.integer(Nobs * seq(1, K-1) / K)
    k <- matrix(c(0, rep(k, each=2), Nobs), ncol = 2, byrow = TRUE)
    k[,1] <- k[,1]+1
    l <- lapply(seq.int(K), function(x, k, d)
        list(train=d[!(seq(d) %in% seq(k[x, 1],k[x, 2]))],
             test=d[seq(k[x,1],k[x,2])]),
        k=k,d=id)
    return(l)
}

しかし、私は何をしているのかよくわかりませんlapply。誰か初心者に説明してくれませんか？感謝します。