if (FALSE) { # interactive()
dat <- set_outcome(iris[, 1:4], "Sepal.Length")
mod <- train(
dat[1:100, ],
dat_validation = dat[101:150, ],
hyperparameters = setup_LINAD(max_leaves = 12L)
)
get_learning_curve(mod)
}
Run the code above in your browser using DataLab