Refinement criteria

Compute the refienemnt criteria for a set of points of the design space

ref_crit(x, model, alpha = 0.001)

Arguments

x

points of the design space in which the criterion will be computed
model

the surrogate model
alpha

the value of the distance criteria default alpha = 0.001

Value

the value of the criterion

Examples

#' library(UP)
d            <- 2;
n            <- 16
X             <- expand.grid(x1=s <- seq(0,1, length=5), x2=s)
Xtest         <- expand.grid(x1=seq(0,1,length=5), x2=seq(0,1,length=4))
Y            <- apply(X, 1, branin)
sm= krigingsm$new()
sm$setDOE(X,Y)
sm$train()
ref_crit <- ref_crit(x= t(Xtest), model=sm,alpha=0)
print(max(ref_crit))
#> [1] 1.923155