У меня есть код ниже. Насколько я понимаю, это даст 50 * 0,8 = 40 записей назад, но это даст 42. Цените это, если кто-то может помочь объяснить это.
library(caret)
set.seed(123)
x <- seq(1:50)
training_index <- createDataPartition(x, times = 1, p = 0.8, list = FALSE)
dim(training_index)