Open mkuehn10 opened 6 years ago
I also added a random shuffling of the rows of the data that is passed in prior to assigning folds.
data <- data[sample(nrow(data)),]
Hi @mkuehn10 , thanks for the opening the issues and pull requests. I am giving a course this week, I will come back to this next week. Klaus
Hello @KlausVigo. Have you had any chance to look this over?
The line
val<-sample(kcv, size=l, replace=TRUE)
has the potential to make different sized folds for the cross-validation.A simple fix could be to do
val <- cut(seq(1, nrow(data)), breaks = kcv, labels = FALSE)
instead to make the folds as similar in size as possible.