#' @rdname OptPath
#' @aliases OptPathDF
#' @export
makeOptPathDF = function(par.set, y.names, minimize, add.transformed.x = FALSE,
include.error.message = FALSE, include.exec.time = FALSE, include.extra = FALSE) {
assertClass(par.set, "ParamSet")
assertCharacter(y.names)
assertLogical(minimize)
assertFlag(add.transformed.x)
assertFlag(include.error.message)
assertFlag(include.exec.time)
assertFlag(include.extra)
n.y = length(y.names)
obj = makeOptPath(par.set, y.names, minimize, add.transformed.x, include.error.message,
include.exec.time, include.extra)
obj$env$path = makeDataFrame(nrow = 0, ncol = getParamNr(par.set, devectorize = TRUE) + n.y,
col.types = c(getParamTypes(par.set, df.cols = TRUE, df.discretes.as.factor = FALSE), rep("numeric", n.y)),
col.names = c(getParamIds(par.set, repeated = TRUE, with.nr = TRUE), y.names)
)
return(addClasses(obj, "OptPathDF"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.