Build a k-fold cross validation sample where training sets are the same size as the original data, and built by sampling disjoint from test/application sets (sampled with replacement).

kWayStratifiedYReplace(nRows, nSplits, dframe, y)

Arguments

nRows

number of rows to split (>1)

nSplits

number of groups to split into (<nRows,>1).

dframe

original data frame (ignored).

y

numeric outcome variable try to have equidistributed in each split.

Value

split plan

Examples

set.seed(23255) d <- data.frame(y=sin(1:100)) pStrat <- kWayStratifiedYReplace(nrow(d),5,d,d$y)