#' @title Holdout Resampling
#'
#' @usage NULL
#' @aliases mlr_resamplings_holdout
#' @format [R6::R6Class] inheriting from [Resampling].
#' @include Resampling.R
#'
#' @section Construction:
#' ```
#' ResamplingHoldout$new()
#' mlr_resamplings$get("holdout")
#' rsmp("holdout")
#' ```
#'
#' @description
#' Splits data into a training set and a test set.
#' Parameter `ratio` determines the ratio of observation going into the training set (default: 2/3).
#'
#' @section Fields:
#' See [Resampling].
#'
#' @section Methods:
#' See [Resampling].
#'
#' @section Parameters:
#' * `stratify` :: `logical(1)` | `character()`\cr
#' Enables stratification. See [Resampling].
#' * `ratio` :: `numeric(1)`\cr
#' Ratio of observations to put into the training set.
#'
#' @template seealso_resampling
#' @export
#' @examples
#' # Create a task with 10 observations
#' task = tsk("iris")
#' task$filter(1:10)
#'
#' # Instantiate Resampling
#' rho = rsmp("holdout", ratio = 0.5)
#' rho$instantiate(task)
#'
#' # Individual sets:
#' rho$train_set(1)
#' rho$test_set(1)
#' intersect(rho$train_set(1), rho$test_set(1))
#'
#' # Internal storage:
#' rho$instance # simple list
ResamplingHoldout = R6Class("ResamplingHoldout", inherit = Resampling,
public = list(
initialize = function() {
ps = ParamSet$new(list(
ParamUty$new("stratify", default = NULL),
ParamDbl$new("ratio", lower = 0, upper = 1, tags = "required")
))
ps$values = list(ratio = 2 / 3)
super$initialize(id = "holdout", param_set = ps)
},
iters = 1L
),
private = list(
.sample = function(ids) {
nr = round(length(ids) * self$param_set$values$ratio)
ii = shuffle(ids, nr)
list(train = ii, test = setdiff(ids, ii))
},
.get_train = function(i) {
self$instance$train
},
.get_test = function(i) {
self$instance$test
},
.combine = function(instances) {
list(train = do.call(c, map(instances, "train")), test = do.call(c, map(instances, "test")))
})
)
#' @include mlr_resamplings.R
mlr_resamplings$add("holdout", ResamplingHoldout)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.