#' Default: see R6::Model.
#' @param quality A function assessing the quality of a prediction.
#' Arguments are y1 and y2 (comparing a prediction to known values).
-#' Default: see R6::Agghoo.
+#' Default: see R6::AgghooCV.
#'
-#' @return An R6::Agghoo object.
+#' @return An R6::AgghooCV object.
#'
#' @examples
#' # Regression:
params <- as.list(params)
if (!is.na(params) && !is.list(params))
stop("params: numerical, character, or list (passed to model)")
- if (!is.na(gmodel) && !is.character(model) && is.na(params))
+ if (!is.na(gmodel) && !is.character(gmodel) && is.na(params))
stop("params must be provided when using a custom model")
if (is.na(gmodel) && !is.na(params))
stop("model must be provided when using custom params")
}
# Build Model object (= list of parameterized models)
model <- Model$new(data, target, task, gmodel, params)
- # Return Agghoo object, to run and predict
- Agghoo$new(data, target, task, model, quality)
+ # Return AgghooCV object, to run and predict
+ AgghooCV$new(data, target, task, model, quality)
}
#' compareToStandard