chore: add source to one standard error callback

R/bibentries.R

@@ -55,5 +55,19 @@ bibentries = c(
  journal = "Machine Learning",
  author = "Isabelle Guyon and Jason Weston and Stephen Barnhill and Vladimir Vapnik",
  year = "2002"
+ ),
+
+ kuhn2013 = bibentry("Inbook",
+ author = "Kuhn, Max and Johnson, Kjell",
+ chapter = "Over-Fitting and Model Tuning",
+ title = "Applied Predictive Modeling",
+ year = "2013",
+ publisher = "Springer New York",
+ address = "New York, NY",
+ pages = "61--92",
+ isbn = "978-1-4614-6849-3",
+ doi = "10.1007/978-1-4614-6849-3_4",
+ url = "https://doi.org/10.1007/978-1-4614-6849-3_4"
  )
 )
+

R/mlr_callbacks.R

@@ -117,6 +117,9 @@ load_callback_svm_rfe = function() {
 #' @description
 #' Selects the smallest feature set within one standard error of the best as the result.
 #'
+#' @source
+#' `r format_bib("kuhn2013")`
+#'
 #' @examples
 #' clbk("mlr3fselect.one_se_rule")
 #'

tests/testthat/test_FSelectInstanceSingleCrit.R

@@ -79,7 +79,7 @@ test_that("always include variable works", {
  task = task,
  learner = learner,
  resampling = resampling,
- measure = msr("classif.ce"),
+ measures = msr("classif.ce"),
  terminator = trm("evals", n_evals = 100),
  store_models = TRUE
  )
@@ -105,7 +105,7 @@ test_that("always include variables works", {
  task = task,
  learner = learner,
  resampling = resampling,
- measure = msr("classif.ce"),
+ measures = msr("classif.ce"),
  terminator = trm("evals", n_evals = 100),
  store_models = TRUE
  )