if (FALSE) {
data(sleep)
res <- vimpute(sleep,
spec = list(
Sleep = vs_ranger(num.trees = 300, tune = TRUE),
NonD = vs_robust(donorcond = ">= 0"),
.default = vs_ranger()
),
seed = 1)
# the same, as formula grammar:
res2 <- vimpute(sleep,
Sleep ~ . | ranger(num.trees = 300, tune = TRUE),
NonD ~ . | robust(donorcond = ">= 0"),
.default = vs_ranger(),
seed = 1)
}
Run the code above in your browser using DataLab