powered by
kfoldcv(k, N)
k
# 10-fold CV with N = 91 kfoldcv(10, 91) <testonly>k <- sample(5:15, 1) k N <- sample(50:150, 1) N stopifnot(sum(kfoldcv(k, N)) == N)</testonly>
Run the code above in your browser using DataLab