Description Usage Format Details Fields Methods Examples
custom_fit
is designed to estimate the quality of a surrogate
1 |
An R6Class
generator object
custom fit enable linear combination of several criteria
listComp
List of component
dcoeff
Coefficient of each term fitness
custom_fit$new(coeff, components)
Creates a new custom_fit
. Used to construct an assesment of a quality of a surrogate model
get_val(surrogate_model)
It gives an evaluation of a surrogate model (object sm
).
1 2 3 4 5 6 7 8 9 10 11 12 13 | library(UP)
d <- 2
X <- expand.grid(x1=seq(0,1,length=5), x2=seq(0,1,length=4))
y <- apply(X, 1, branin)
upsm <- UPSM$new(sm= krigingsm$new(), UP=UPClass$new(X,y,Scale =TRUE))
listCrit <- list()
listCrit[[1]] <- MSE$new()
listCrit[[2]] <- Resampling_Error$new()
listCrit[[3]] <- penlrm$new(X, y)
PPS <- custom_fit$new(c(4,2,1), listCrit)
valPPS <- PPS$get_val(upsm)
print("PPS")
print(valPPS)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.