# k-Folding for a simple bruteforce selection
data(fairplayer)
fs <- list(ra = names(fairplayer)[53:57])
sel <- kfold('bruteforce', k = 2,
data = fairplayer, factor.structure = fs,
capacity = 3, seed = 55635,
cores = 1)
summary(sel)
# \donttest{
### longitudinal example with mmas ----
data(fairplayer)
fs <- list(si1 = names(fairplayer)[83:92],
si2 = names(fairplayer)[93:102],
si3 = names(fairplayer)[103:112])
repe <- list(si = c('si1', 'si2', 'si3'))
sel_mmas <- kfold('mmas', k = 3,
data = fairplayer, factor.structure = fs,
repeated.measures = repe, long.invariance = 'strong',
capacity = 3, seed = 55635, pbest = .5,
cores = 1)
summary(sel_mmas)
# }
Run the code above in your browser using DataLab