# NOT RUN {
x <- iris
x[sample(150, 3), 1] <- NA
x[sample(150, 1), 3] <- NA
x[sample(150, 5), 5] <- NA
y <- gl(2, 75)
fold <- resample("holdout", y, nfold=1)[[1]]
data <- pre_split(x, y, fold) %>%
pre_impute_df
# }
Run the code above in your browser using DataLab