data-raw/tmp/_tmp4_.R

# DataSet2 <- rbind(DataSet1,DataSet1,DataSet1,DataSet1,
#                   DataSet1,DataSet1,DataSet1,DataSet1)  %>%
#     mosaic::sample()
#
# FoldsOBJ <- cvo_create_folds(data = DataSet2,
#                           stratify_by = "gr",
#                           block_by = "ID",
#                           returnTrain = FALSE)
#
# test_folds_BS(obj = FoldsOBJ,
#           data = DataSet2,
#           stratify_by = "gr",
#           block_by = "ID")
#
# DATA = DataSet2
# stratBy = "gr"
# blockBy = "ID"
GegznaV/spHelper documentation built on April 16, 2023, 1:42 p.m.